Merge pull request #112 from bitc/fix-spelling-mistake-occurred
Fix spelling mistake ("exception has occurred")
commite16f154a4a0dad23b3d1a0bcc34420e6a7799e55
authorMichael Xavier <michael@michaelxavier.net>
dateMon 12 Aug 2019, 08:31 (7 years ago)
parent737e10b0180efd
katip/src/Katip/Core.hs+1−1
@@ -1012,7 +1012,7 @@ logException
10121012logException a ns sev action = action `catchAny` \e -> f e >> throwM e
10131013 where
10141014 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
10161016
10171017
10181018-------------------------------------------------------------------------------
katip/src/Katip/Monadic.hs+1−1
@@ -315,7 +315,7 @@ logExceptionM
315315logExceptionM action sev = action `catchAny` \e -> f e >> throwM e
316316 where
317317 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
319319
320320
321321-------------------------------------------------------------------------------