diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-03-13 05:27:44 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-03-14 07:07:45 +0100 |
| commit | 75444b933f1f23223576fe0ced682b558393ed21 (patch) | |
| tree | b4ae4753d42e2d8d236a78db451b875d8ceeae0c /app/Main.hs | |
| parent | b9f4ee069228e80dda60bc10436693df0aee77ea (diff) | |
chore: patch shows commit messages
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 9 |
1 files changed, 1 insertions, 8 deletions
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? |