diff options
| author | Roman Cheplyaka <roma@ro-che.info> | 2008-12-07 11:58:22 +0100 |
|---|---|---|
| committer | Roman Cheplyaka <roma@ro-che.info> | 2008-12-07 11:58:22 +0100 |
| commit | 67807cc2d1647c6f70ac1d3ceff10bde786a40f6 (patch) | |
| tree | 4dfa3a8db4a3ccad4e0b081b4e02f3c097778091 /Commands.hs | |
| parent | 7bd4c6df42f7d7b61e3cf6308bf2d970c60310bb (diff) | |
| download | xmobar-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.hs | 5 |
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 |