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
|
defcmd
|
||||||
#else
|
#else
|
||||||
l <- catchDefaultIO Nothing $ withFile f ReadMode $
|
l <- catchDefaultIO Nothing $ withFile f ReadMode $
|
||||||
headMaybe . lines <$$> hGetContents h
|
headMaybe . lines <$$> hGetContents
|
||||||
case l of
|
case l of
|
||||||
Just ('#':'!':rest) -> case words rest of
|
Just ('#':'!':rest) -> case words rest of
|
||||||
[] -> defcmd
|
[] -> defcmd
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue