diff options
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r-- | Annex/Content.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index be460f068..2a8b295d3 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -505,7 +505,7 @@ moveAnnex key src = withObjectLoc key storeobject storedirect alreadyhave = liftIO $ removeFile src populatePointerFile :: Key -> FilePath -> FilePath -> Annex () -populatePointerFile k obj f = go =<< isPointerFile f +populatePointerFile k obj f = go =<< liftIO (isPointerFile f) where go (Just k') | k == k' = do liftIO $ nukeFile f |