diff options
author | 2011-10-31 15:18:41 -0400 | |
---|---|---|
committer | 2011-10-31 15:18:41 -0400 | |
commit | 3d3e1c4c25f4bbefd0f5e3f445444f3293875a93 (patch) | |
tree | 0331686878d92d8fc082875c605cc1245ef9beba /Command/SetContent.hs | |
parent | 09861cf4f75e2bb9e5597f8b9ea39ab4a33bf4d8 (diff) |
better command name
Diffstat (limited to 'Command/SetContent.hs')
-rw-r--r-- | Command/SetContent.hs | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/Command/SetContent.hs b/Command/SetContent.hs deleted file mode 100644 index b63cc9119..000000000 --- a/Command/SetContent.hs +++ /dev/null @@ -1,51 +0,0 @@ -{- git-annex command - - - - Copyright 2011 Joey Hess <joey@kitenet.net> - - - - Licensed under the GNU GPL version 3 or higher. - -} - -module Command.SetContent where - -import Common.Annex -import Command -import Logs.Location -import Annex.Content -import qualified Command.Fsck - -def :: [Command] -def = [command "setcontent" (paramPair paramPath paramPath) seek - "sets content of annexed file"] - -seek :: [CommandSeek] -seek = [withWords start] - -start :: [FilePath] -> CommandStart -start (src:dest:[]) = do - showStart "setcontent" dest - next $ perform src dest -start _ = error "specify a src file and a dest file" - -perform :: FilePath -> FilePath -> CommandPerform -perform src dest = isAnnexed dest $ \(key, backend) -> do - unlessM (move key) $ error "mv failed!" - next $ cleanup key backend - where - -- the file might be on a different filesystem, - -- so mv is used rather than simply calling - -- moveToObjectDir; disk space is also - -- checked this way. - move key = getViaTmp key $ \tmp -> - if dest /= src - then liftIO $ boolSystem "mv" [File src, File tmp] - else return True - -cleanup :: Key -> Backend Annex -> CommandCleanup -cleanup key backend = do - logStatus key InfoPresent - - -- fsck the new content - size_ok <- Command.Fsck.checkKeySize key - backend_ok <- Command.Fsck.checkBackend backend key - - return $ size_ok && backend_ok |