diff options
| -rw-r--r-- | Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Commands.hs b/Commands.hs index bdc8d60..9697fce 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) (\eof -> return "") + str <- catch (hGetLineSafe o) (\_ -> return "") closeHandles cb str _ -> do closeHandles |