diff options
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r-- | Annex/Content.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 9648083cb..bc28cc6b4 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -27,7 +27,6 @@ module Annex.Content ( sendAnnex, prepSendAnnex, removeAnnex, - fromAnnex, moveBad, KeyLocation(..), getKeysPresent, @@ -573,13 +572,6 @@ secureErase file = maybe noop go =<< annexSecureEraseCommand <$> Annex.getGitCon boolSystem "sh" [Param "-c", Param $ gencmd basecmd] gencmd = massReplace [ ("%file", shellEscape file) ] -{- Moves a key's file out of .git/annex/objects/ -} -fromAnnex :: Key -> FilePath -> Annex () -fromAnnex key dest = cleanObjectLoc key $ do - file <- calcRepo $ gitAnnexLocation key - thawContent file - liftIO $ moveFile file dest - {- Moves a key out of .git/annex/objects/ into .git/annex/bad, and - returns the file it was moved to. -} moveBad :: Key -> Annex FilePath |