syntax fix

This commit is contained in:
Joey Hess 2013-05-17 14:24:07 -04:00
parent c2e279b6ce
commit dcf46bde1b

View file

@ -37,7 +37,7 @@ main = do
mustSucceed "ln" [File "dist/build/git-annex/git-annex.exe", File gitannex]
let license = tmpdir </> licensefile
mustSucceed "sh" [Param "-c", Param $ "zcat standalone/licences.gz > '" ++ license ++ "'"]
extrafiles <- forM (cygwinPrograms ++ cygwinDlls) $ \f ->
extrafiles <- forM (cygwinPrograms ++ cygwinDlls) $ \f -> do
p <- searchPath f
when (isNothing p) $
print ("unable to find in PATH", f)