summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Plugins/PipeReader.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Plugins/PipeReader.hs b/Plugins/PipeReader.hs
index 695f1e6..6c84f71 100644
--- a/Plugins/PipeReader.hs
+++ b/Plugins/PipeReader.hs
@@ -3,7 +3,7 @@
-- Module : Plugins.PipeReader
-- Copyright : (c) Andrea Rossato
-- License : BSD-style (see LICENSE)
---
+--
-- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
-- Stability : unstable
-- Portability : unportable
@@ -15,14 +15,15 @@
module Plugins.PipeReader where
import System.IO
+import qualified System.IO.UTF8 as U
import Plugins
data PipeReader = PipeReader String String
deriving (Read, Show)
-instance Exec PipeReader where
+instance Exec PipeReader where
alias (PipeReader _ a) = a
start (PipeReader p _) cb = do
h <- openFile p ReadMode
- forever (hGetLine h >>= cb)
+ forever (U.hGetLine h >>= cb)
where forever a = a >> forever a