fix windows build

diff --git a/Annex/Content.hs b/Annex/Content.hs
index 0b15ce53b1a525be51570be48ea528d5822c631e..9648083cb21ff9b7690c74290df51e4585937c35 100644 (file)
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -256,8 +256,9 @@ lockContentUsing locker key a = do
                maybe noop cleanuplockfile mlockfile
                liftIO $ dropLock lck
 #else
-       unlock mlockfile mlockhandle = do
-               liftIO $ maybe noop dropLock mlockhandle
+       unlock mlockfile lck = do
+               -- Can't delete a locked file on Windows
+               liftIO $ dropLock lck
                maybe noop cleanuplockfile mlockfile
 #endif