git.iko.soy/typeable/katip
on fa407db help sign in
6a146e6
swap
1 ahead, 0 behind
katip/src/Katip/Core.hs+3
since splitsnapshots
unifiedsplit
@@ -1037,6 +1037,7 @@ instance TH.Lift Namespace where
1037 lift (Namespace xs) =
1037 lift (Namespace xs) =
1038 let xs' = map T.unpack xs
1038 let xs' = map T.unpack xs
1039 in [| Namespace (map T.pack xs') |]
1039 in [| Namespace (map T.pack xs') |]
1040+ liftTyped x = TH.unsafeTExpCoerce (TH.lift x)
1040
1041
1041
1042
1042instance TH.Lift Verbosity where
1043instance TH.Lift Verbosity where
@@ -1044,6 +1045,7 @@ instance TH.Lift Verbosity where
1044 lift V1 = [| V1 |]
1045 lift V1 = [| V1 |]
1045 lift V2 = [| V2 |]
1046 lift V2 = [| V2 |]
1046 lift V3 = [| V3 |]
1047 lift V3 = [| V3 |]
1048+ liftTyped x = TH.unsafeTExpCoerce (TH.lift x)
1047
1049
1048
1050
1049instance TH.Lift Severity where
1051instance TH.Lift Severity where
@@ -1055,6 +1057,7 @@ instance TH.Lift Severity where
1055 lift CriticalS = [| CriticalS |]
1057 lift CriticalS = [| CriticalS |]
1056 lift AlertS = [| AlertS |]
1058 lift AlertS = [| AlertS |]
1057 lift EmergencyS = [| EmergencyS |]
1059 lift EmergencyS = [| EmergencyS |]
1060+ liftTyped x = TH.unsafeTExpCoerce (TH.lift x)
1058
1061
1059
1062
1060-- | Lift a location into an Exp.
1063-- | 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
82 ColorIfTerminal -> hIsTerminalDevice h
82 ColorIfTerminal -> hIsTerminalDevice h
83 ColorLog b -> return b
83 ColorLog b -> return b
84 lock <- newMVar ()
84 lock <- newMVar ()
85− let logger i@Item{..} = do
85+ let logger i = do
86 bracket_ (takeMVar lock) (putMVar lock ()) $
86 bracket_ (takeMVar lock) (putMVar lock ()) $
87 T.hPutStrLn h $ toLazyText $ itemFormatter colorize verb i
87 T.hPutStrLn h $ toLazyText $ itemFormatter colorize verb i
88 return $ Scribe logger (hFlush h) permitF
88 return $ Scribe logger (hFlush h) permitF