Fix BDLines getSpacing computation

2023-04-17 09:31:54 +00:00 · 2023-04-17 09:31:54 +00:00 · dc4e59f2a1
parent 412c5460aa
commit dc4e59f2a1
1 changed files with 4 additions and 1 deletions
--- a/source/library/Language/Haskell/Brittany/Internal/Transformations/T1_Alt.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/Transformations/T1_Alt.hs
@ -844,7 +844,10 @@ getSpacings limit bridoc = preFilterLimit <$> rec bridoc
        -- counterexample would be anything like Seq[Lit "foo", Lines].
        lSpss <- map filterAndLimit <$> rec `mapM` ls
        let
-          worbled = fmap reverse $ sequence $ reverse $ lSpss
+          worbled = sequence $ case lSpss of
+            [] -> []
+            [x] -> [x]
+            (x1:xR) -> x1 : map reverse xR
          sumF lSps@(lSp1 : _) =
            VerticalSpacing (_vs_sameLine lSp1)
                            (spMakePar $ maxVs lSps)