diff options
| -rw-r--r-- | src/Reaktor.hs | 5 |
1 files 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 |