hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Change layouting for lambda, app; Fix exponential behaviour

pull/1/head
Lennart Spitzner 2016-08-06 19:36:47 +02:00
parent 0314569276
commit cd9474a969
2 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Language/Haskell/Brittany/BriLayouter.hs
View File

@ -631,7 +631,15 @@ getSpacings limit bridoc = rec bridoc
VerticalSpacingParSome i -> i <= colMax
VerticalSpacingParNonBottom -> True
let filterAndLimit :: [VerticalSpacing] -> [VerticalSpacing]
filterAndLimit = forceList . take limit . filter hasOkColCount
filterAndLimit = forceList
. take limit
. filter hasOkColCount
. take (100*limit) -- we need to limit here in case
-- that the input list is
-- _large_ with a similarly _large_
-- prefix not passing hasOkColCount
-- predicate.
-- TODO: 100 is arbitrary.
forceList l = foldl (flip seq) l l
result <- case brdc of
-- BDWrapAnnKey _annKey bd -> rec bd
@ -730,7 +738,8 @@ getSpacings limit bridoc = rec bridoc
lSpss <- rec `mapM` ls
let worbled = fmap reverse
$ sequence
$ reverse lSpss
$ reverse
$ lSpss
summed = worbled <&> \lSps@(lSp1:_) ->
VerticalSpacing (_vs_sameLine lSp1)
(spMakePar $ maxVs lSps)

14
src/Language/Haskell/Brittany/Layouters/Expr.hs
View File

@ -56,13 +56,15 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
docCols ColCasePattern
$ (patDocs <&> (\p -> docSeq [docForceSingleline p, docSeparator]))
docAlt
[ docSeq
[ docSetParSpacing
$ docSeq
[ docLit $ Text.pack "\\"
, docWrapNode lmatch $ docForceSingleline funcPatternPartLine
, appSep $ docLit $ Text.pack "->"
, docWrapNode lgrhs $ docForceParSpacing bodyDoc
]
, docAddBaseY BrIndentRegular
, docSetParSpacing
$ docAddBaseY BrIndentRegular
$ docPar
(docSeq
[ docLit $ Text.pack "\\"
@ -120,6 +122,12 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
[ docSeq [appSep $ docForceSingleline expDoc1, docForceSingleline expDoc2]
, docSetParSpacing
$ docAddBaseY BrIndentRegular
$ docSeq
[ appSep $ docForceSingleline expDoc1
, docForceParSpacing expDoc2
]
, docSetParSpacing
$ docAddBaseY BrIndentRegular
$ docPar
(docForceSingleline expDoc1)
expDoc2
@ -472,7 +480,7 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
$ docAddBaseY BrIndentRegular
$ docPar
(docLit t)
(docLines $ let
(docNonBottomSpacing $ docLines $ let
line1 = docCols ColRecUpdate
[ appSep $ docLit $ Text.pack "{"
, appSep $ docLit $ fd1n