better command name

This commit is contained in:
Joey Hess 2011-10-31 15:18:41 -04:00
parent 09861cf4f7
commit 3d3e1c4c25
6 changed files with 16 additions and 18 deletions

View file

@ -5,7 +5,7 @@
- Licensed under the GNU GPL version 3 or higher.
-}
module Command.SetContent where
module Command.Reinject where
import Common.Annex
import Command
@ -14,7 +14,7 @@ import Annex.Content
import qualified Command.Fsck
def :: [Command]
def = [command "setcontent" (paramPair paramPath paramPath) seek
def = [command "reinject" (paramPair paramPath paramPath) seek
"sets content of annexed file"]
seek :: [CommandSeek]
@ -22,7 +22,7 @@ seek = [withWords start]
start :: [FilePath] -> CommandStart
start (src:dest:[]) = do
showStart "setcontent" dest
showStart "reinject" dest
next $ perform src dest
start _ = error "specify a src file and a dest file"