Use handle in handled scribe
commita17cb8bdbc9e0e69fbbd7b16d5e20689d059d315
authorMichael Xavier <michael@michaelxavier.net>
dateSun 1 Mar 2015, 12:14 (12 years ago)
parenta3842de
src/Katip/Scribes/Handle.hs+1−1
@@ -59,7 +59,7 @@ mkHandleScribe h sev verb = do
5959 maybe mempty (brackets . fromString . locationToString) itemLoc <>
6060 fromText " " <> fromText itemMessage
6161 if itemSeverity >= sev
62− then B.putStrLn $ toByteString msg
62+ then B.hPutStrLn h $ toByteString msg
6363 else return ()
6464
6565