fix windows build
This commit is contained in:
parent
3ec1478767
commit
cf6c5d5ca9
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue