Fix OpApp layouting/indentation annoyance

src-literatetests/tests.blt

@@ -861,6 +861,26 @@ func = fooooooooooooooooooooooooooooooooo + foooooooooooooooooooooooooooooooo
   , foooooooooooooooooooooooooooooooo
   ]
 
+#test opapp-indenting
+parserPrim =
+  [ r
+  | r <-
+    [ SGPPrimFloat $ bool id (0-) minus $ readGnok "parserPrim"
+                                                   (d1 ++ d2 ++ d3 ++ d4)
+    | d2 <- string "."
+    , d3 <- many1 (oneOf "0123456789")
+    , _  <- string "f"
+    ]
+    <|> [ SGPPrimFloat $ bool id (0-) minus $ fromIntegral
+            (readGnok "parserPrim" d1 :: Integer)
+        | _ <- string "f"
+        ]
+    <|> [ SGPPrimInt $ bool id (0-) minus $ fromIntegral
+            (readGnok "parserPrim" d1 :: Integer)
+        | _ <- string "i"
+        ]
+  ]
+
 
 ###############################################################################
 ###############################################################################

src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs

@@ -213,8 +213,7 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
       --     $ (appListDocs <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed])
       --       ++ [docCols ColOpPrefix [appSep opLastDoc, docSetBaseY expLastDoc]]
       --     )
-      , docAddBaseY BrIndentRegular
-      $ docPar
+      , docPar
           leftOperandDoc
           ( docLines
           $ (appListDocs <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed])