windows build warning fixes

1 files changed, 3 insertions, 2 deletions

diff --git a/Annex/Content.hs b/Annex/Content.hs
index 1a2ed06c1..077407071 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -176,8 +176,6 @@ lockContent key a = do
 		(const $ a $ ContentLock key )
   where
 	alreadylocked = error "content is locked"
-	failedtolock e = error $ "failed to lock content: " ++ show e
-	trylock locker = locker `catchIO` failedtolock
 	cleanuplockfile lockfile = modifyContent lockfile $
 		void $ liftIO $ tryIO $
 			nukeFile lockfile
@@ -197,6 +195,9 @@ lockContent key a = do
 	unlock mlockfile lck = do
 		maybe noop cleanuplockfile mlockfile
 		liftIO $ dropLock lck
+	
+	failedtolock e = error $ "failed to lock content: " ++ show e
+	trylock locker = locker `catchIO` failedtolock
 #else
 	lock _ (Just lockfile) = do
 		modifyContent lockfile $