Make NodeComments monoid (#939)

mihaimaruseac · Aug 13, 2024 · 0d2bd1f · 0d2bd1f
1 parent a074653
commit 0d2bd1f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/HIndent/Ast/NodeComments.hs b/src/HIndent/Ast/NodeComments.hs
@@ -24,6 +24,11 @@ instance Semigroup NodeComments where
       , commentsAfter = commentsAfter x <> commentsAfter y
       }
 
+instance Monoid NodeComments where
+  mempty =
+    NodeComments
+      {commentsBefore = [], commentsOnSameLine = [], commentsAfter = []}
+
 fromEpAnn :: GHC.EpAnn a -> NodeComments
 fromEpAnn = fromEpAnn' . filterOutEofAndPragmasFromAnn