avoid compiler warning

add type sig so it's clear createtfile returns unit

Annex/Perms.hs

@@ -6,6 +6,7 @@
  -}
 
 module Annex.Perms (
+	FileMode,
 	setAnnexFilePerm,
 	setAnnexDirPerm,
 	annexFileMode,

Annex/Transfer.hs

@@ -88,6 +88,7 @@ runTransfer' ignorelock t afile shouldretry transferaction = checkSecureHashes t
 				else recordFailedTransfer t info
 			return v
   where
+	prep :: FilePath -> Annex () -> FileMode -> Annex (Maybe LockHandle, Bool)
 #ifndef mingw32_HOST_OS
 	prep tfile createtfile mode = catchPermissionDenied (const prepfailed) $ do
 		let lck = transferLockFile tfile

Command/Unlock.hs

@@ -15,7 +15,6 @@ import Annex.Version
 import Annex.Link
 import Annex.ReplaceFile
 import Utility.CopyFile
-import Utility.FileMode
 import Git.FilePath
 import qualified Database.Keys