summaryrefslogtreecommitdiff
path: root/Command/Reinject.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-31 15:18:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-31 15:18:41 -0400
commit3d3e1c4c25f4bbefd0f5e3f445444f3293875a93 (patch)
tree0331686878d92d8fc082875c605cc1245ef9beba /Command/Reinject.hs
parent09861cf4f75e2bb9e5597f8b9ea39ab4a33bf4d8 (diff)
better command name
Diffstat (limited to 'Command/Reinject.hs')
-rw-r--r--Command/Reinject.hs51
1 files changed, 51 insertions, 0 deletions
diff --git a/Command/Reinject.hs b/Command/Reinject.hs
new file mode 100644
index 000000000..63309aa52
--- /dev/null
+++ b/Command/Reinject.hs
@@ -0,0 +1,51 @@
+{- git-annex command
+ -
+ - Copyright 2011 Joey Hess <joey@kitenet.net>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
+module Command.Reinject where
+
+import Common.Annex
+import Command
+import Logs.Location
+import Annex.Content
+import qualified Command.Fsck
+
+def :: [Command]
+def = [command "reinject" (paramPair paramPath paramPath) seek
+ "sets content of annexed file"]
+
+seek :: [CommandSeek]
+seek = [withWords start]
+
+start :: [FilePath] -> CommandStart
+start (src:dest:[]) = do
+ showStart "reinject" 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