From 5bee3fa93d55bf3eecbe89b764ad412fc9b24416 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Sun, 19 Mar 2023 18:15:47 +0000
Subject: [PATCH] Fix missing comment for MG

---
 .../Language/Haskell/Brittany/Internal/ToBriDoc/Expr.hs       | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Expr.hs b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Expr.hs
index 29f5ab4..dde18b2 100644
--- a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Expr.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Expr.hs
@@ -494,7 +494,7 @@ layoutExpr lexpr@(L _ expr) = do
           )
           (docLit $ Text.pack "of {}")
         ]
-    HsCase epAnn cExp (MG _ _lmatches@(L _ matches) _) -> docHandleComms epAnn $ do
+    HsCase epAnn cExp (MG _ lmatches@(L _ matches) _) -> docHandleComms epAnn $ do
       cExpDoc <- shareDoc $ layoutExpr cExp
       binderDoc <- docLit $ Text.pack "->"
       funcPatDocs <-
@@ -511,6 +511,7 @@ layoutExpr lexpr@(L _ expr) = do
           )
           (docSetBaseAndIndent
           $ docNonBottomSpacing
+          $ docHandleComms lmatches
           $ docLines
           $ return
           <$> funcPatDocs
@@ -523,6 +524,7 @@ layoutExpr lexpr@(L _ expr) = do
             (docLit $ Text.pack "of")
             (docSetBaseAndIndent
             $ docNonBottomSpacing
+            $ docHandleComms lmatches
             $ docLines
             $ return
             <$> funcPatDocs