aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2019-01-25 11:06:02 +0100
committertv <tv@krebsco.de>2019-01-25 11:06:02 +0100
commit3c0cc6e6143ff40238948e6ffbba67ccd2236777 (patch)
tree0ca483c77eee42098dd8f41a33d65ba63553a8c7 /src
parent6c629a0cc422872abdfc40f9621ac0c4f6a420a8 (diff)
Reaktor: use Blessings.Text
Diffstat (limited to 'src')
-rw-r--r--src/Reaktor.hs5
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