From ed81762c861800f9f493bfa2e07d29d2b3cca053 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 15 Mar 2018 13:20:38 -0400
Subject: [PATCH] avoid compiler warning

add type sig so it's clear createtfile returns unit
---
 Annex/Perms.hs    | 1 +
 Annex/Transfer.hs | 1 +
 Command/Unlock.hs | 1 -
 3 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Annex/Perms.hs b/Annex/Perms.hs
index 93919af86e..b467d4a607 100644
--- a/Annex/Perms.hs
+++ b/Annex/Perms.hs
@@ -6,6 +6,7 @@
  -}
 
 module Annex.Perms (
+	FileMode,
 	setAnnexFilePerm,
 	setAnnexDirPerm,
 	annexFileMode,
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs
index 7b2e49f6ba..b12b227f34 100644
--- a/Annex/Transfer.hs
+++ b/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
diff --git a/Command/Unlock.hs b/Command/Unlock.hs
index 221c9f0ad0..eb3942f53a 100644
--- a/Command/Unlock.hs
+++ b/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