From 9be4f78afdabbcb03db74355d198121500460388 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Fri, 31 Aug 2018 22:47:41 +0200
Subject: [PATCH] fix help command

---
 src/GPM/Review.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/GPM/Review.hs b/src/GPM/Review.hs
index fa0efed..c90b17d 100644
--- a/src/GPM/Review.hs
+++ b/src/GPM/Review.hs
@@ -14,10 +14,11 @@ data ReviewCommand = ReviewStart (Maybe Text)
                    deriving (Eq)
 
 parseReviewCmd :: Parser ReviewCommand
-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)
+parseReviewCmd =
+  subcommand "accept" "Accept the merge" (pure ReviewAccept)
+  <|> subcommand "feedback" "Provide a feedback" (pure ReviewFeedback)
+  <|> subcommand "question" "Ask a question" (pure ReviewQuestion)
+  <|> subcommand "reject" "Reject the merge" (pure ReviewReject)
 
 handleReview :: ReviewCommand -> IO ()
 handleReview (ReviewStart _br) = die "TODO"