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

Fix BDLines handling in getSpacings

pull/1/head
Lennart Spitzner 2016-08-06 14:02:11 +02:00
parent 02ee54f806
commit a1c153f0c5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -728,9 +728,14 @@ getSpacings limit bridoc = rec bridoc
-- be inserted anywhere but at the start of the line. A -- be inserted anywhere but at the start of the line. A
-- counterexample would be anything like Seq[Lit "foo", Lines]. -- counterexample would be anything like Seq[Lit "foo", Lines].
lSpss <- rec `mapM` ls lSpss <- rec `mapM` ls
return $ filterAndLimit let worbled = fmap reverse
$ Control.Lens.transposeOf traverse lSpss <&> \lSps -> $ sequence
VerticalSpacing 0 (spMakePar $ maxVs lSps) False $ reverse lSpss
summed = worbled <&> \lSps@(lSp1:_) ->
VerticalSpacing (_vs_sameLine lSp1)
(spMakePar $ maxVs lSps)
False
return $ filterAndLimit $ summed
-- lSpss@(mVs:_) <- rec `mapM` ls -- lSpss@(mVs:_) <- rec `mapM` ls
-- return $ case Control.Lens.transposeOf traverse lSpss of -- TODO: we currently only -- return $ case Control.Lens.transposeOf traverse lSpss of -- TODO: we currently only
-- -- consider the first alternative for the -- -- consider the first alternative for the