fix windows build

diff --git a/Utility/Shell.hs b/Utility/Shell.hs
index 43fb8bc49ca26cecc638bc0c436d1db227b81884..116ab616404250bbc421af0bde2926b3e25d5c17 100644 (file)
--- 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