avoid build warning on windows

diff --git a/Annex/Content.hs b/Annex/Content.hs
index 568077cabc50686c43e0013bd45ca2769a4438aa..f1b147fddb10babfd6dfc5fcdd0e26fceb773360 100644 (file)
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -204,19 +204,24 @@ lockContentUsing contentlocker key fallback a = withContentLockFile key $ \mlock
        alreadylocked = giveup "content is locked"
        failedtolock e = giveup $ "failed to lock content: " ++ show e
 
-       lock locker mlockfile = tryIO $ locker >>= \case
-               Nothing -> alreadylocked
-               Just h ->
 #ifndef mingw32_HOST_OS
-                       case mlockfile of
-                               Nothing -> return h
-                               Just lockfile ->
-                                       ifM (checkSaneLock lockfile h)
-                                               ( return h
-                                               , alreadylocked
-                                               )
+       lock locker mlockfile =
 #else
-                       return h
+       lock locker _mlockfile =
+#endif
+               tryIO $ locker >>= \case
+                       Nothing -> alreadylocked
+                       Just h ->
+#ifndef mingw32_HOST_OS
+                               case mlockfile of
+                                       Nothing -> return h
+                                       Just lockfile ->
+                                               ifM (checkSaneLock lockfile h)
+                                                       ( return h
+                                                       , alreadylocked
+                                                       )
+#else
+                               return h
 #endif
        
        go (Right _) = a