Fix a missing comment case with MultiWayIf

data/11-extensions/multiwayif.blt

@@ -14,3 +14,10 @@ func = do
   bar $ if
     | cond1 -> loooooooooooooooooooooooooooooong expr1
     | cond2 -> loooooooooooooooooooooooooooooong expr2
+
+#test multiwayif comment between cases
+func = do
+  if
+    | abc -> yes
+    -- | test comment
+    | _   -> no

source/library/Language/Haskell/Brittany/Internal/ToBriDoc/Expr.hs

@@ -493,7 +493,10 @@ layoutExpr lexpr@(L _ expr) = do
             || any (\(L _ (GRHS gEpAnn _ _)) -> hasAnyCommentsBelow gEpAnn) cases
       let posIf = obtainAnnPos epAnn AnnIf
       layouters <- mAsk
-      docSetParSpacing $ docAddBaseY BrIndentRegular $ docPar
+      docHandleComms epAnn
+        $ docSetParSpacing
+        $ docAddBaseY BrIndentRegular
+        $ docPar
           (docHandleComms posIf $ docLit $ Text.pack "if")
           (layout_patternBindFinal layouters
                                    Nothing