aboutsummaryrefslogtreecommitdiff
path: root/Command/Reinject.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-12-16 16:56:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-12-16 16:56:31 -0400
commit87c1c103eacf153aeaa79be9fd896df147a76c10 (patch)
tree138d6bbe4605e8bec668524ea16d4388fb2cb60a /Command/Reinject.hs
parent9e82c348b72a3526a266cbbcbd8e73992635a109 (diff)
add back message
Diffstat (limited to 'Command/Reinject.hs')
-rw-r--r--Command/Reinject.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/Command/Reinject.hs b/Command/Reinject.hs
index 906f7c517..0648e90fc 100644
--- a/Command/Reinject.hs
+++ b/Command/Reinject.hs
@@ -26,7 +26,11 @@ start (src:dest:[])
| otherwise = do
ifAnnexed src
(error $ "cannot used annexed file as src: " ++ src)
- (next $ whenAnnexed (perform src) dest)
+ go
+ where
+ go = do
+ showStart "reinject" dest
+ next $ whenAnnexed (perform src) dest
start _ = error "specify a src file and a dest file"
perform :: FilePath -> FilePath -> (Key, Backend Annex) -> CommandPerform