fix windows build

This commit is contained in:
Joey Hess 2016-12-30 11:37:06 -04:00
parent 3ec1478767
commit cf6c5d5ca9
No known key found for this signature in database
GPG key ID: C910D9222512E3C7

View file

@ -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