From cf6c5d5ca98ae7925d862081ebd9e60457a7a857 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 30 Dec 2016 11:37:06 -0400 Subject: [PATCH] fix windows build --- Utility/Shell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Shell.hs b/Utility/Shell.hs index 43fb8bc49c..116ab61640 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