summaryrefslogtreecommitdiffhomepage
path: root/Commands.hs
diff options
context:
space:
mode:
authorRoman Cheplyaka <roma@ro-che.info>2008-12-07 11:58:22 +0100
committerRoman Cheplyaka <roma@ro-che.info>2008-12-07 11:58:22 +0100
commit67807cc2d1647c6f70ac1d3ceff10bde786a40f6 (patch)
tree4dfa3a8db4a3ccad4e0b081b4e02f3c097778091 /Commands.hs
parent7bd4c6df42f7d7b61e3cf6308bf2d970c60310bb (diff)
downloadxmobar-67807cc2d1647c6f70ac1d3ceff10bde786a40f6.tar.gz
xmobar-67807cc2d1647c6f70ac1d3ceff10bde786a40f6.tar.bz2
Unicode support for Com
darcs-hash:20081207105822-3ebed-cc1046bbed0af9aa04675a17435e58453a374c34.gz
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