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

Fix BDLines getSpacing computation

ghc92
Lennart Spitzner 2023-04-17 09:31:54 +00:00
parent 412c5460aa
commit dc4e59f2a1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
source/library/Language/Haskell/Brittany/Internal/Transformations/T1_Alt.hs
View File

@ -844,7 +844,10 @@ getSpacings limit bridoc = preFilterLimit <$> rec bridoc
-- counterexample would be anything like Seq[Lit "foo", Lines]. -- counterexample would be anything like Seq[Lit "foo", Lines].
lSpss <- map filterAndLimit <$> rec `mapM` ls lSpss <- map filterAndLimit <$> rec `mapM` ls
let let
worbled = fmap reverse $ sequence $ reverse $ lSpss worbled = sequence $ case lSpss of
[] -> []
[x] -> [x]
(x1:xR) -> x1 : map reverse xR
sumF lSps@(lSp1 : _) = sumF lSps@(lSp1 : _) =
VerticalSpacing (_vs_sameLine lSp1) VerticalSpacing (_vs_sameLine lSp1)
(spMakePar $ maxVs lSps) (spMakePar $ maxVs lSps)