mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add back message

Browse source
This commit is contained in:
Joey Hess 2011-12-16 16:56:31 -04:00
parent 9e82c348b7
commit 87c1c103ea
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Command/Reinject.hs
View file

@ -26,7 +26,11 @@ start (src:dest:[])
| otherwise = do | otherwise = do
ifAnnexed src ifAnnexed src
(error $ "cannot used annexed file as src: " ++ 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" start _ = error "specify a src file and a dest file"
perform :: FilePath -> FilePath -> (Key, Backend Annex) -> CommandPerform perform :: FilePath -> FilePath -> (Key, Backend Annex) -> CommandPerform