From 3c0cc6e6143ff40238948e6ffbba67ccd2236777 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 25 Jan 2019 11:06:02 +0100 Subject: Reaktor: use Blessings.Text --- src/Reaktor.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Reaktor.hs b/src/Reaktor.hs index e35792f..3c9e280 100644 --- a/src/Reaktor.hs +++ b/src/Reaktor.hs @@ -7,7 +7,7 @@ module Reaktor , run ) where -import Blessings +import Blessings.Text import Control.Concurrent.Extended import Control.Exception import Data.Attoparsec.Text (feed,parse) @@ -16,6 +16,7 @@ import Data.ByteString (ByteString) import qualified Data.ByteString.Char8.Extended as BS import qualified Data.Text.Encoding as T import qualified Data.Text.Extended as T +import qualified Data.Text.IO as T import Data.Foldable (toList) import Data.Time.Clock.System import Data.Time.Format @@ -98,7 +99,7 @@ logger :: System.IO.Handle -> IO (Blessings Text) -> IO () logger h takeLog = forever $ do s <- takeLog let s' = if lastChar s == '\n' then s else s <> Plain "\n" - System.IO.hPutStr h $ pp $ fmap T.unpack s' + T.hPutStr h $ pp s' pinger :: (Message -> IO ()) -> IO () pinger aSend = forever $ do -- cgit v1.2.3