fa407db · typeable/katip

git.iko.soy/typeable/katip

Make Katip compatible with template-haskell-2.16.0.0

commitfa407db633270140704cc54ee6e851fc5b4d4da4 authorNick <nick@typeable.io> dateThu 8 Apr 2021, 21:08 (6 years ago) parent6a146e6

2 files changed+4−1

unifiedsplit

katip/src/Katip/Core.hs+3

@@ -1037,6 +1037,7 @@ 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)

10401041

10411042

10421043instance TH.Lift Verbosity where

@@ -1044,6 +1045,7 @@ instance TH.Lift Verbosity where

10441045 lift V1 = [| V1 |]

10451046 lift V2 = [| V2 |]

10461047 lift V3 = [| V3 |]

1048+ liftTyped x = TH.unsafeTExpCoerce (TH.lift x)

10471049

10481050

10491051instance TH.Lift Severity where

@@ -1055,6 +1057,7 @@ instance TH.Lift Severity where

10551057 lift CriticalS = [| CriticalS |]

10561058 lift AlertS = [| AlertS |]

10571059 lift EmergencyS = [| EmergencyS |]

1060+ liftTyped x = TH.unsafeTExpCoerce (TH.lift x)

10581061

10591062

10601063-- | 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@Item{..} = do

85+ let logger i = do

8686 bracket_ (takeMVar lock) (putMVar lock ()) $

8787 T.hPutStrLn h $ toLazyText $ itemFormatter colorize verb i

8888 return $ Scribe logger (hFlush h) permitF