Set proper indentation base level for operands

data/15-regressions.blt

@@ -1090,3 +1090,14 @@ func = do
             )
             nogcVassuVvbFiew
       kyxson = vzahxEooRecOriqdp apneZejuzTfuQkuJosqoa
+
+#test base level for operands
+func = do
+  pure
+    $!! otherFunc
+          (SomeLargeRecord { aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa = 1
+                           , bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb = 2
+                           , cccccccccccccccccccccccccccccccccc = 3
+                           }
+          )
+          anotherArgument

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

@@ -425,7 +425,7 @@ layoutOpTree allowSinglelinePar = \case
         let singlelineUnlessFree = case indentPolicy of
               IndentPolicyLeft     -> docForceSingleline
               IndentPolicyMultiple -> docForceSingleline
-              IndentPolicyFree     -> id
+              IndentPolicyFree     -> docSetBaseY
         let curIsPrec0 = case fixity of
               Nothing                -> False
               Just (Fixity _ prec _) -> prec == 0