Fix OpApp layouting/indentation annoyance
parent
16f5aa118d
commit
5e3cc0a7c3
|
@ -861,6 +861,26 @@ func = fooooooooooooooooooooooooooooooooo + foooooooooooooooooooooooooooooooo
|
||||||
, 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"
|
||||||
|
]
|
||||||
|
]
|
||||||
|
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
###############################################################################
|
###############################################################################
|
||||||
|
|
|
@ -213,8 +213,7 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
|
||||||
-- $ (appListDocs <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed])
|
-- $ (appListDocs <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed])
|
||||||
-- ++ [docCols ColOpPrefix [appSep opLastDoc, docSetBaseY expLastDoc]]
|
-- ++ [docCols ColOpPrefix [appSep opLastDoc, docSetBaseY expLastDoc]]
|
||||||
-- )
|
-- )
|
||||||
, docAddBaseY BrIndentRegular
|
, docPar
|
||||||
$ docPar
|
|
||||||
leftOperandDoc
|
leftOperandDoc
|
||||||
( docLines
|
( docLines
|
||||||
$ (appListDocs <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed])
|
$ (appListDocs <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed])
|
||||||
|
|
Loading…
Reference in New Issue