From 638a9d5a9022e451e6eea4cc66eb1cf4d2d65f03 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Sun, 11 Oct 2009 03:56:18 +0200
Subject: Support for base 4 without base-3 compatibility

Ignore-this: 6846a123ade5dc1164841e62beabbf71

darcs-hash:20091011015618-1499c-f91811df4a05f6e4d236faaa5f4b4050613253e1.gz
---
 Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Commands.hs')

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
-- 
cgit v1.2.3