mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build warning on windows

Browse source
This commit is contained in:
Joey Hess 2016-05-05 15:48:58 -04:00
parent 2862eb9d59
commit 6cf9dbb564
Failed to extract signature
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Annex/Init.hs
View file

@ -145,10 +145,10 @@ probeCrippledFileSystem = do
liftIO $ probeCrippledFileSystem' tmp
probeCrippledFileSystem' :: FilePath -> IO Bool
probeCrippledFileSystem' tmp = do
#ifdef mingw32_HOST_OS
return True
probeCrippledFileSystem' _ = return True
#else
probeCrippledFileSystem' tmp = do
let f = tmp </> "gaprobe"
writeFile f ""
uncrippled <- probe f