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,16 +493,19 @@ 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
-        (docHandleComms posIf $ docLit $ Text.pack "if")
+        $ docSetParSpacing
-        (layout_patternBindFinal layouters
+        $ docAddBaseY BrIndentRegular
-                                 Nothing
+        $ docPar
-                                 binderDoc
+          (docHandleComms posIf $ docLit $ Text.pack "if")
-                                 Nothing
+          (layout_patternBindFinal layouters
-                                 (Right cases)
+                                   Nothing
-                                 (id, Nothing)
+                                   binderDoc
-                                 hasComments
+                                   Nothing
-        )
+                                   (Right cases)
+                                   (id, Nothing)
+                                   hasComments
+          )
     HsLet epAnn binds exp1 -> docHandleComms epAnn $ do
       let AnnsLet spanLet spanIn = anns epAnn
       let hasComments            = hasAnyCommentsBelow lexpr