diff options
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 |