fix windows build

Annex/Init.hs

@@ -51,8 +51,8 @@ import Annex.Tmp
 import Utility.UserInfo
 import qualified Utility.RawFilePath as R
 import Utility.ThreadScheduler
-#ifndef mingw32_HOST_OS
 import Annex.Perms
+#ifndef mingw32_HOST_OS
 import Utility.FileMode
 import System.Posix.User
 import qualified Utility.LockFile.Posix as Posix
@@ -255,7 +255,7 @@ probeCrippledFileSystem'
 	-> Maybe (RawFilePath -> m ())
 	-> m (Bool, [String])
 #ifdef mingw32_HOST_OS
-probeCrippledFileSystem' _ _ = return (True, [])
+probeCrippledFileSystem' _ _ _ = return (True, [])
 #else
 probeCrippledFileSystem' tmp freezecontent thawcontent = do
 	let f = tmp P.</> "gaprobe"

doc/bugs/Build_fails_on_Windows_as_of_commit_4b1b9d7a8.mdwn

@@ -2,3 +2,5 @@ As of commit 4b1b9d7a8, trying to build git-annex on Windows fails because of a
 
 [[!meta author=jwodder]]
 [[!tag projects/datalad]]
+
+> [[done]], thank you jwodder! --[[Joey]]