-- |Alternative way of outputting logs, through 'MonadError'.
throwLog :: (MonadError Log m) => LogCommitter -> String -> m a
throwLog lc msg = throwError (Log ErrorLog lc msg)
throwLog :: (MonadError Log m) => LogCommitter -> String -> m a
throwLog lc msg = throwError (Log ErrorLog lc msg)
throwLog lc msg = throwError (Log ErrorLog lc msg)