yogsototh/gpm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix help command

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2018-08-31 22:47:41 +02:00
parent e95f7c7701
commit 9be4f78afd
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/GPM/Review.hs
View file

@ -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 "feedback" "Provide a feedback" (pure ReviewFeedback) subcommand "accept" "Accept the merge" (pure ReviewAccept)
<|> subcommand "question" "Ask a question" (pure ReviewQuestion) <|> subcommand "feedback" "Provide a feedback" (pure ReviewFeedback)
<|> subcommand "reject" "Ask a question" (pure ReviewReject) <|> subcommand "question" "Ask a question" (pure ReviewQuestion)
<|> subcommand "reject" "Reject the merge" (pure ReviewReject)
handleReview :: ReviewCommand -> IO () handleReview :: ReviewCommand -> IO ()
handleReview (ReviewStart _br) = die "TODO" handleReview (ReviewStart _br) = die "TODO"