diff options
| -rw-r--r-- | Utility/Shell.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Shell.hs b/Utility/Shell.hs index 43fb8bc49..116ab6164 100644 --- a/Utility/Shell.hs +++ b/Utility/Shell.hs @@ -50,7 +50,7 @@ findShellCommand f = do defcmd #else l <- catchDefaultIO Nothing $ withFile f ReadMode $ - headMaybe . lines <$$> hGetContents h + headMaybe . lines <$$> hGetContents case l of Just ('#':'!':rest) -> case words rest of [] -> defcmd |