git.iko.soy/typeable/katip
on master help sign in
Add explicit elem/mapm

For some reason doc generation (and doc generation only) gets confused otherwise.

commitee90f685d56ec93b611dbad31937444f1b304cce authorMichael Xavier <michael@michaelxavier.net> dateTue 8 Mar 2016, 11:09 (11 years ago) parenta7a0a60
1 file changed+2−2
compare with master
unifiedsplit
katip/src/Katip/Core.hs+2−2
katip/src/Katip/Core.hs+2−2
@@ -412,7 +412,7 @@ sl a b = SimpleLogPayload [(a, AnyLogPayload b)]
412412payloadObject :: LogItem a => Verbosity -> a -> A.Object
413413payloadObject verb a = case FT.foldMap (flip payloadKeys a) [(V0)..verb] of
414414 AllKeys -> toObject a
415− SomeKeys ks -> HM.filterWithKey (\ k _ -> k `elem` ks) $ toObject a
415+ SomeKeys ks -> HM.filterWithKey (\ k _ -> k `FT.elem` ks) $ toObject a
416416
417417
418418-------------------------------------------------------------------------------
@@ -627,7 +627,7 @@ logItem a ns loc sev msg = do
627627 <*> _logEnvTimer
628628 <*> pure (_logEnvNs <> ns)
629629 <*> pure loc
630− forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item
630+ FT.forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item
631631
632632
633633-------------------------------------------------------------------------------