diff options
Diffstat (limited to 'app/Status.hs')
| -rw-r--r-- | app/Status.hs | 6 |
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) |