fix help command
This commit is contained in:
parent
e95f7c7701
commit
9be4f78afd
1 changed files with 5 additions and 4 deletions
|
@ -14,10 +14,11 @@ data ReviewCommand = ReviewStart (Maybe Text)
|
||||||
deriving (Eq)
|
deriving (Eq)
|
||||||
|
|
||||||
parseReviewCmd :: Parser ReviewCommand
|
parseReviewCmd :: Parser ReviewCommand
|
||||||
parseReviewCmd = subcommand "accept" "Accept the merge" (pure ReviewAccept)
|
parseReviewCmd =
|
||||||
|
subcommand "accept" "Accept the merge" (pure ReviewAccept)
|
||||||
<|> subcommand "feedback" "Provide a feedback" (pure ReviewFeedback)
|
<|> subcommand "feedback" "Provide a feedback" (pure ReviewFeedback)
|
||||||
<|> subcommand "question" "Ask a question" (pure ReviewQuestion)
|
<|> subcommand "question" "Ask a question" (pure ReviewQuestion)
|
||||||
<|> subcommand "reject" "Ask a question" (pure ReviewReject)
|
<|> subcommand "reject" "Reject the merge" (pure ReviewReject)
|
||||||
|
|
||||||
handleReview :: ReviewCommand -> IO ()
|
handleReview :: ReviewCommand -> IO ()
|
||||||
handleReview (ReviewStart _br) = die "TODO"
|
handleReview (ReviewStart _br) = die "TODO"
|
||||||
|
|
Loading…
Reference in a new issue