diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-05-05 15:48:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-05-05 15:48:58 -0400 |
| commit | 00ce65fd76d985bc657fb1f97fea7ebd1c3484cc (patch) | |
| tree | b65ead261678eac0b9014bf82b58b9119d7eef47 /Annex | |
| parent | 7b744df198d3f24d646608f396fcebd73509e781 (diff) | |
fix build warning on windows
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Init.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Init.hs b/Annex/Init.hs index 4edc9c914..67c92cdb3 100644 --- a/Annex/Init.hs +++ b/Annex/Init.hs @@ -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 |