From 01a7a2471b05b6cde6f134dc70f1419d4d61bb9c Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 24 Oct 2017 12:17:38 -0400
Subject: windows build fix

---
 Annex/Init.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Annex')

diff --git a/Annex/Init.hs b/Annex/Init.hs
index 9a284e62b..63f27493b 100644
--- a/Annex/Init.hs
+++ b/Annex/Init.hs
@@ -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"
-- 
cgit v1.2.3