git.iko.soy/typeable/katip
on master help sign in
swap
6a146e60 ahead, 1 behind
2 files changed+1−4
since splitsnapshots
unifiedsplit
katip/src/Katip/Core.hs−3 katip/src/Katip/Scribes/Handle.hs+1−1
katip/src/Katip/Core.hs−3
@@ -1037,7 +1037,6 @@ instance TH.Lift Namespace where
10371037 lift (Namespace xs) =
10381038 let xs' = map T.unpack xs
10391039 in [| Namespace (map T.pack xs') |]
1040− liftTyped x = TH.unsafeTExpCoerce (TH.lift x)
10411040
10421041
10431042instance TH.Lift Verbosity where
@@ -1045,7 +1044,6 @@ instance TH.Lift Verbosity where
10451044 lift V1 = [| V1 |]
10461045 lift V2 = [| V2 |]
10471046 lift V3 = [| V3 |]
1048− liftTyped x = TH.unsafeTExpCoerce (TH.lift x)
10491047
10501048
10511049instance TH.Lift Severity where
@@ -1057,7 +1055,6 @@ instance TH.Lift Severity where
10571055 lift CriticalS = [| CriticalS |]
10581056 lift AlertS = [| AlertS |]
10591057 lift EmergencyS = [| EmergencyS |]
1060− liftTyped x = TH.unsafeTExpCoerce (TH.lift x)
10611058
10621059
10631060-- | Lift a location into an Exp.
katip/src/Katip/Scribes/Handle.hs+1−1
@@ -82,7 +82,7 @@ mkHandleScribeWithFormatter itemFormatter cs h permitF verb = do
8282 ColorIfTerminal -> hIsTerminalDevice h
8383 ColorLog b -> return b
8484 lock <- newMVar ()
85− let logger i = do
85+ let logger i@Item{..} = do
8686 bracket_ (takeMVar lock) (putMVar lock ()) $
8787 T.hPutStrLn h $ toLazyText $ itemFormatter colorize verb i
8888 return $ Scribe logger (hFlush h) permitF