diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-10-11 03:56:18 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-10-11 03:56:18 +0200 |
| commit | 638a9d5a9022e451e6eea4cc66eb1cf4d2d65f03 (patch) | |
| tree | 4b604e4f9bbb7d9c34fc24f298f34dfbf3f47e4b /Commands.hs | |
| parent | 1fd673d50d48ee3f7a4dc86eb6488cd26d976b4f (diff) | |
| download | xmobar-638a9d5a9022e451e6eea4cc66eb1cf4d2d65f03.tar.gz xmobar-638a9d5a9022e451e6eea4cc66eb1cf4d2d65f03.tar.bz2 | |
Support for base 4 without base-3 compatibility
Ignore-this: 6846a123ade5dc1164841e62beabbf71
darcs-hash:20091011015618-1499c-f91811df4a05f6e4d236faaa5f4b4050613253e1.gz
Diffstat (limited to 'Commands.hs')
| -rw-r--r-- | Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Commands.hs b/Commands.hs index 9697fce..6bbe95b 100644 --- a/Commands.hs +++ b/Commands.hs @@ -67,7 +67,7 @@ instance Exec Command where hClose e case exit of ExitSuccess -> do - str <- catch (hGetLineSafe o) (\_ -> return "") + str <- catch (hGetLineSafe o) (\(SomeException _) -> return "") closeHandles cb str _ -> do closeHandles |