diff options
| -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 |