From a1c153f0c58280a5f649eefd52e3eaadaeea7e26 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Sat, 6 Aug 2016 14:02:11 +0200
Subject: [PATCH] Fix BDLines handling in getSpacings

---
 src/Language/Haskell/Brittany/BriLayouter.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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