diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-03-13 05:35:58 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-03-14 07:07:45 +0100 |
| commit | f63a777c07094af31c8841a3f50af8beca0aa369 (patch) | |
| tree | 07de3fd250be4886d0f424afe671034161c9a765 /app/Main.hs | |
| parent | f73d14f3f7ff7b7f188d9038856baee0cada0d51 (diff) | |
chore: add review commit template
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/app/Main.hs b/app/Main.hs index a2fef0b..5a21787 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -343,7 +343,7 @@ import Options.Applicative ((<**>)) import Options.Applicative qualified as O import Patch qualified as A import Process (proc, sh_, textInput) -import Render (renderAsText, (<<<)) +import Render ((<<<)) import Render qualified as P import Review qualified as R import Settings (Settings (..), readSettings) @@ -592,8 +592,8 @@ main = do `catch` \(_ :: E.ProcessException) -> error "working directory not clean, aborting.." plan <- R.formulatePlan perCommit baseBranch featureBranch - patch <- A.Patch . concat <$> mapM R.reviewStep (NE.toList plan.steps) - T.writeFile "review.patch" (renderAsText patch) + R.commitReview plan . A.Patch . concat + =<< mapM R.reviewStep (NE.toList plan.steps) -- REVIEW Why is withReviewing in the Status module and not the Review -- module? -- |