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