From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 30 Dec 2016 15:37:06 +0000 (-0400)
Subject: fix windows build
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~278^2~11
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=cf6c5d5ca98ae7925d862081ebd9e60457a7a857;p=git-annex.git

fix windows build
---

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