Remove docAlt spacing transpose trick

2016-08-04 11:14:27 +02:00 · 2016-08-04 11:14:27 +02:00 · 8b0300df83
parent e453c292a3
commit 8b0300df83
1 changed files with 1 additions and 1 deletions
--- 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