summaryrefslogtreecommitdiff
path: root/Command/Reinject.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Reinject.hs')
-rw-r--r--Command/Reinject.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/Command/Reinject.hs b/Command/Reinject.hs
index 09511562f..76e1420ff 100644
--- a/Command/Reinject.hs
+++ b/Command/Reinject.hs
@@ -14,11 +14,12 @@ import Annex.Content
import qualified Command.Fsck
import qualified Backend
-cmd :: [Command]
-cmd = command "reinject" (paramPair "SRC" "DEST") seek
- SectionUtility "sets content of annexed file"
+cmd :: Command
+cmd = command "reinject" SectionUtility
+ "sets content of annexed file"
+ (paramPair "SRC" "DEST") (withParams seek)
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek = withWords start
start :: [FilePath] -> CommandStart