From 75444b933f1f23223576fe0ced682b558393ed21 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 13 Mar 2024 05:27:44 +0100
Subject: chore: patch shows commit messages

---
 app/Main.hs | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 0154840..a2fef0b 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -592,14 +592,7 @@ main = do
         `catch` \(_ :: E.ProcessException) ->
           error "working directory not clean, aborting.."
       plan <- R.formulatePlan perCommit baseBranch featureBranch
-      patch <-
-        A.Patch . concat
-          <$> mapM
-            ( \step -> do
-                R.separateReview step.commit step.changes
-                  =<< R.reviewPatch step.changes
-            )
-            (NE.toList plan.steps)
+      patch <- A.Patch . concat <$> mapM R.reviewStep (NE.toList plan.steps)
       T.writeFile "review.patch" (renderAsText patch)
     -- REVIEW Why is withReviewing in the Status module and not the Review
     -- module?
-- 
cgit v1.2.3