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
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 liftIO $ probeCrippledFileSystem' tmp
probeCrippledFileSystem' :: FilePath -> IO Bool probeCrippledFileSystem' :: FilePath -> IO Bool
probeCrippledFileSystem' tmp = do
#ifdef mingw32_HOST_OS #ifdef mingw32_HOST_OS
return True probeCrippledFileSystem' _ = return True
#else #else
probeCrippledFileSystem' tmp = do
let f = tmp </> "gaprobe" let f = tmp </> "gaprobe"
writeFile f "" writeFile f ""
uncrippled <- probe f uncrippled <- probe f