summaryrefslogtreecommitdiffhomepage
path: root/Commands.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Commands.hs')
-rw-r--r--Commands.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Commands.hs b/Commands.hs
index 5e03ad0..93f7572 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -27,7 +27,8 @@ import Control.Concurrent
import Data.Char
import System.Process
import System.Exit
-import System.IO (hClose, hGetLine)
+import System.IO (hClose)
+import XUtil
class Show e => Exec e where
alias :: e -> String
@@ -64,7 +65,7 @@ instance Exec Command where
hClose e
case exit of
ExitSuccess -> do
- str <- hGetLine o
+ str <- hGetLineSafe o
closeHandles
cb str
_ -> do closeHandles