windows build fix
This commit is contained in:
parent
92c7e67022
commit
42a9555d9f
1 changed files with 1 additions and 1 deletions
|
@ -152,7 +152,7 @@ probeCrippledFileSystem = do
|
||||||
|
|
||||||
probeCrippledFileSystem' :: FilePath -> IO (Bool, [String])
|
probeCrippledFileSystem' :: FilePath -> IO (Bool, [String])
|
||||||
#ifdef mingw32_HOST_OS
|
#ifdef mingw32_HOST_OS
|
||||||
probeCrippledFileSystem' _ = return True
|
probeCrippledFileSystem' _ = return (True, [])
|
||||||
#else
|
#else
|
||||||
probeCrippledFileSystem' tmp = do
|
probeCrippledFileSystem' tmp = do
|
||||||
let f = tmp </> "gaprobe"
|
let f = tmp </> "gaprobe"
|
||||||
|
|
Loading…
Add table
Reference in a new issue