git.iko.soy/typeable/katip
on master help sign in
Merge pull request #112 from bitc/fix-spelling-mistake-occurred
e16f154Michael Xavier
katip/src/Katip/Core.hs+1−1
compare with master
unifiedsplit
@@ -1012,7 +1012,7 @@ logException
1012logException a ns sev action = action `catchAny` \e -> f e >> throwM e
1012logException a ns sev action = action `catchAny` \e -> f e >> throwM e
1013 where
1013 where
1014 f e = logF a ns sev (msg e)
1014 f e = logF a ns sev (msg e)
1015− msg e = ls (T.pack "An exception has occured: ") <> showLS e
1015+ msg e = ls (T.pack "An exception has occurred: ") <> showLS e
1016
1016
1017
1017
1018-------------------------------------------------------------------------------
1018-------------------------------------------------------------------------------
katip/src/Katip/Monadic.hs+1−1
@@ -315,7 +315,7 @@ logExceptionM
315logExceptionM action sev = action `catchAny` \e -> f e >> throwM e
315logExceptionM action sev = action `catchAny` \e -> f e >> throwM e
316 where
316 where
317 f e = logFM sev (msg e)
317 f e = logFM sev (msg e)
318− msg e = ls ("An exception has occured: " :: Text) Semi.<> showLS e
318+ msg e = ls ("An exception has occurred: " :: Text) Semi.<> showLS e
319
319
320
320
321-------------------------------------------------------------------------------
321-------------------------------------------------------------------------------