@@ -597,15 +597,15 @@ logF a ns sev msg = logItem a ns Nothing sev msg
597597-- | Perform an action while logging any exceptions that may occur.
598598-- Inspired by 'onException`.
599599--
600−-- >>>> logException (error "foo") () mempty ErrorS
600+-- >>>> logException () mempty ErrorS (error "foo")
601601logException
602602 :: (Katip m, LogItem a, MonadCatch m, Applicative m)
603− => m b -- ^ Main action being run
604− -> a -- ^ Log context
603+ => a -- ^ Log context
605604 -> Namespace -- ^ Namespace
606605 -> Severity -- ^ Severity
606+ -> m b -- ^ Main action being run
607607 -> m b
608−logException action a ns sev = action `catchAll` \e -> f e >> throwM e
608+logException a ns sev action = action `catchAll` \e -> f e >> throwM e
609609 where
610610 f e = logF a ns sev (msg e)
611611 msg e = ls (T.pack "An exception has occured: ") <> showLS e