diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-01-01 13:22:38 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-01-01 13:22:38 -0400 |
commit | 802f4615d785a520744c912446dab06569526a91 (patch) | |
tree | a489061ac78c410b5e91d67de065dc6484ca1a4e /Annex/Content.hs | |
parent | eb18baf6b84c59faee1b309bbe0721d0f11f4a70 (diff) |
convert isPointerFile from Annex to IO
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 |