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