From 540a0343bad1aecd8478f93e99911efb1ca8f03e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 15 Feb 2016 15:03:44 -0400 Subject: [PATCH] more windows build fix --- Annex/Transfer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index 460376b7e6..213de06484 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -108,7 +108,7 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do prep tfile _mode info = catchPermissionDenied (const prepfailed) $ do let lck = transferLockFile tfile createAnnexDirectory $ takeDirectory lck - v <- catchMaybeIO $ lockExclusive lck + v <- catchMaybeIO $ liftIO $ lockExclusive lck case v of Nothing -> return (Nothing, False) Just Nothing -> return (Nothing, True)