From 67807cc2d1647c6f70ac1d3ceff10bde786a40f6 Mon Sep 17 00:00:00 2001
From: Roman Cheplyaka <roma@ro-che.info>
Date: Sun, 7 Dec 2008 11:58:22 +0100
Subject: Unicode support for Com

darcs-hash:20081207105822-3ebed-cc1046bbed0af9aa04675a17435e58453a374c34.gz
---
 Commands.hs | 5 +++--
 1 file 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
-- 
cgit v1.2.3