Fix multiline-list indentation past comma level

data/10-structured/expression-list.blt

@@ -21,3 +21,10 @@ foo =
   , 4
   , 5
   ]
+
+#test set-base-y for multiple line elements
+foo =
+  [ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+  , bbbbbbbbbbbbbbbbbb
+    $ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+  ]

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

@@ -736,15 +736,15 @@ layoutExpr lexpr@(L _ expr) = do
                , docForceSingleline eN
                , closeDoc]
           addAlternative
-            $ let start  = docCols ColList [appSep $ openDoc, e1]
+            $ let start  = docCols ColList [appSep $ openDoc, docSetBaseY e1]
                   linesM = ems <&> \(p, ast, d) ->
                     docCols
                       ColList
                       [ docHandleComms p docCommaSep
-                      , docFlushCommsPost True ast $ d
+                      , docSetBaseY $ docFlushCommsPost True ast $ d
                       ]
                   lineN  = docCols ColList
-                    [docHandleComms finalCommaPos $ docCommaSep, eN]
+                    [docHandleComms finalCommaPos $ docCommaSep, docSetBaseY eN]
               in  docSetBaseY
                   $  docLines
                   $  [start]