summaryrefslogtreecommitdiffhomepage
path: root/Plugins
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins')
-rw-r--r--Plugins/PipeReader.hs3
-rw-r--r--Plugins/StdinReader.hs3
2 files changed, 2 insertions, 4 deletions
diff --git a/Plugins/PipeReader.hs b/Plugins/PipeReader.hs
index 6c84f71..a0709b1 100644
--- a/Plugins/PipeReader.hs
+++ b/Plugins/PipeReader.hs
@@ -15,7 +15,6 @@
module Plugins.PipeReader where
import System.IO
-import qualified System.IO.UTF8 as U
import Plugins
data PipeReader = PipeReader String String
@@ -25,5 +24,5 @@ instance Exec PipeReader where
alias (PipeReader _ a) = a
start (PipeReader p _) cb = do
h <- openFile p ReadMode
- forever (U.hGetLine h >>= cb)
+ forever (hGetLineSafe h >>= cb)
where forever a = a >> forever a
diff --git a/Plugins/StdinReader.hs b/Plugins/StdinReader.hs
index 4283a96..a12b722 100644
--- a/Plugins/StdinReader.hs
+++ b/Plugins/StdinReader.hs
@@ -18,7 +18,6 @@ import Prelude hiding (catch)
import System.Posix.Process
import System.Exit
import System.IO
-import qualified System.IO.UTF8 as U
import Control.Exception (catch)
import Plugins
@@ -27,7 +26,7 @@ data StdinReader = StdinReader
instance Exec StdinReader where
start StdinReader cb = do
- cb =<< catch (U.hGetLine stdin) (\e -> do hPrint stderr e; return "")
+ cb =<< catch (hGetLineSafe stdin) (\e -> do hPrint stderr e; return "")
eof <- hIsEOF stdin
if eof
then exitImmediately ExitSuccess