diff options
author | 2011-12-16 16:56:31 -0400 | |
---|---|---|
committer | 2011-12-16 16:56:31 -0400 | |
commit | 87c1c103eacf153aeaa79be9fd896df147a76c10 (patch) | |
tree | 138d6bbe4605e8bec668524ea16d4388fb2cb60a | |
parent | 9e82c348b72a3526a266cbbcbd8e73992635a109 (diff) |
add back message
-rw-r--r-- | Command/Reinject.hs | 6 |
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 |