windows build fix

This commit is contained in:
Joey Hess 2017-10-24 12:17:38 -04:00
parent 92c7e67022
commit 42a9555d9f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -152,7 +152,7 @@ probeCrippledFileSystem = do
probeCrippledFileSystem' :: FilePath -> IO (Bool, [String])
#ifdef mingw32_HOST_OS
probeCrippledFileSystem' _ = return True
probeCrippledFileSystem' _ = return (True, [])
#else
probeCrippledFileSystem' tmp = do
let f = tmp </> "gaprobe"