diff options
Diffstat (limited to 'Command/RecvKey.hs')
| -rw-r--r-- | Command/RecvKey.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Command/RecvKey.hs b/Command/RecvKey.hs index 8572596d2..574963494 100644 --- a/Command/RecvKey.hs +++ b/Command/RecvKey.hs @@ -20,11 +20,12 @@ import qualified Types.Key import qualified Types.Backend import qualified Backend -cmd :: [Command] -cmd = [noCommit $ command "recvkey" paramKey seek - SectionPlumbing "runs rsync in server mode to receive content"] +cmd :: Command +cmd = noCommit $ command "recvkey" paramKey + SectionPlumbing "runs rsync in server mode to receive content" + (commandParser seek) -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek = withKeys start start :: Key -> CommandStart |