diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-30 11:37:06 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-30 11:37:06 -0400 |
| commit | a6a5b54a0426e334b8a9e12cd75969a33491d1fd (patch) | |
| tree | aea921c3ba91b1984b764fd5e3009b3ebde363ff | |
| parent | 95750bbe69ab8f5b4be36e17a37b40bd2febe973 (diff) | |
fix windows build
| -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 |