Error logging helpers (perhaps another package)

[expede]

-- newtype ErrorLogger m = ErrorLogger
--   { unlogger :: Errors m -> LogLevel -> Text -> m () }

-- ensureLogM
--   :: ( MonadLogger  m
--      , MonadRaise   m
--      , Raises inner m
--      )
--   => (inner -> LogLevel -> Text -> m ())
--   -> m (Either inner a)
--   -> m a
-- ensureLogM logger action =
--   action >>= \case
--     Left err -> do
--       logGeneric lvl msg
--       raise err

--     Right val ->
--       Right val