From f73d14f3f7ff7b7f188d9038856baee0cada0d51 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 13 Mar 2024 05:32:02 +0100
Subject: chore: add `REVIEW` marker

---
 app/Review.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/Review.hs')

diff --git a/app/Review.hs b/app/Review.hs
index ef901ce..37690d9 100644
--- a/app/Review.hs
+++ b/app/Review.hs
@@ -115,7 +115,7 @@ addComments =
   map . mapContent . mapHunks . mapLines $ \line@(D.Line {..}) ->
     if lineAnnotation == D.Comment
       then -- TODO Haskell comment
-        D.Line D.Added ("--" <> lineContent)
+        D.Line D.Added ("-- REVIEW" <> lineContent)
       else line
   where
     mapContent f x = x {D.fileDeltaContent = f x.fileDeltaContent}
-- 
cgit v1.2.3