From a0854ba8df2b837ede780a2db57a0337deaad73f Mon Sep 17 00:00:00 2001
From: Roman Cheplyaka <roma@ro-che.info>
Date: Mon, 16 Feb 2009 22:38:42 +0100
Subject: X.U.Loggers: handle possible EOF (reported by dyfrgi)

darcs-hash:20090216213842-3ebed-958cbc985ea9e5f72ac0d0b63c7544947e31d134.gz
---
 XMonad/Util/Loggers.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/XMonad/Util/Loggers.hs b/XMonad/Util/Loggers.hs
index 35892fd..4c879a7 100644
--- a/XMonad/Util/Loggers.hs
+++ b/XMonad/Util/Loggers.hs
@@ -83,6 +83,5 @@ battery = logCmd "/usr/bin/acpi | sed -r 's/.*?: (.*%).*/\\1/; s/discharging, ([
 -- | Create a 'Logger' from an arbitrary shell command.
 logCmd :: String -> Logger
 logCmd c = io $ do (_, out, _, _) <- runInteractiveCommand c
-                   output <- hGetLine out
+                   fmap Just (hGetLine out) `catch` (const $ return Nothing)
                    -- no need to waitForProcess, we ignore SIGCHLD
-                   return $ Just output
-- 
cgit v1.2.3