From 8b0300df83d28677f892b31ed9decae85399c9f1 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Thu, 4 Aug 2016 11:14:27 +0200
Subject: [PATCH] Remove docAlt spacing transpose trick

---
 src/Language/Haskell/Brittany/BriLayouter.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Language/Haskell/Brittany/BriLayouter.hs b/src/Language/Haskell/Brittany/BriLayouter.hs
index b45208a..dc2a07b 100644
--- a/src/Language/Haskell/Brittany/BriLayouter.hs
+++ b/src/Language/Haskell/Brittany/BriLayouter.hs
@@ -639,7 +639,7 @@ getSpacings limit bridoc = rec bridoc
         BDFAlt [] -> error "empty BDAlt"
         -- BDAlt (alt:_) -> rec alt
         BDFAlt alts -> do
-          r <- filterAndLimit . join . transpose <$> (rec `mapM` alts)
+          r <- filterAndLimit . join <$> (rec `mapM` alts)
           return r
         BDFForceMultiline  bd -> rec bd
         BDFForceSingleline bd -> do