diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-02-15 15:03:44 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-02-15 15:03:44 -0400 |
commit | b3587891cfbdb972816bac939571b62bb7b9fd4f (patch) | |
tree | 86389d8e3bfd563b269535b8dadef6bb2f5d850c | |
parent | 3fa846bc27525a88ed0f0f463a45d212a583e005 (diff) |
more windows build fix
-rw-r--r-- | Annex/Transfer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index 460376b7e..213de0648 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) |