chore: drop `--granularity` for `--per-commit`

1 files changed, 3 insertions, 3 deletions

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)