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)
|
||||
|
||||
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 "question" "Ask a question" (pure ReviewQuestion)
|
||||
<|> subcommand "reject" "Ask a question" (pure ReviewReject)
|
||||
<|> subcommand "reject" "Reject the merge" (pure ReviewReject)
|
||||
|
||||
handleReview :: ReviewCommand -> IO ()
|
||||
handleReview (ReviewStart _br) = die "TODO"
|
||||
|
|
Loading…
Reference in a new issue