From e7450765081e31341496a3f8ac91bda119b55f5a Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 13 Mar 2024 04:36:20 +0100
Subject: chore: drop `--granularity` for `--per-commit`

---
 app/Status.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'app/Status.hs')

diff --git a/app/Status.hs b/app/Status.hs
index 1a0fd4c..13effa4 100644
--- a/app/Status.hs
+++ b/app/Status.hs
@@ -76,19 +76,19 @@ type BranchName = T.Text
 
 withReviewing ::
   (forall a. Render a => a -> IO ()) ->
-  R.Granularity ->
+  Bool ->
   BranchName ->
   BranchName ->
   FilePath ->
   ReviewingT IO a ->
   IO a
-withReviewing putDoc granularity baseBranch featureBranch fp action = do
+withReviewing putDoc perCommit baseBranch featureBranch fp action = do
   (plan, changes) <-
     (Just <$> readStatus fp)
       `catch` (\(_ :: SomeException) -> pure Nothing)
       >>= \case
         Nothing -> do
-          plan <- R.formulatePlan granularity baseBranch featureBranch
+          plan <- R.formulatePlan perCommit baseBranch featureBranch
           let changes = []
           writeStatus fp $ Reviewing plan changes
           pure (plan, changes)
-- 
cgit v1.2.3