handle successful commands with empty output

Ignore-this: dbf3cac5cd8130bdf186e3487e5915ce

darcs-hash:20090125164724-c98ca-24f6b13ccacc41c07a029b5b0e817307069b145b.gz

1 files changed, 3 insertions, 1 deletions

diff --git a/Commands.hs b/Commands.hs
index 93f7572..bdc8d60 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -23,7 +23,9 @@ module Commands
     , tenthSeconds
     ) where
 
+import Prelude hiding (catch)
 import Control.Concurrent
+import Control.Exception
 import Data.Char
 import System.Process
 import System.Exit
@@ -65,7 +67,7 @@ instance Exec Command where
                         hClose e
                 case exit of
                   ExitSuccess -> do
-                            str <- hGetLineSafe o
+                            str <- catch (hGetLineSafe o) (\eof -> return "")
                             closeHandles
                             cb str
                   _ -> do closeHandles