hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Remove docAlt spacing transpose trick

pull/1/head
Lennart Spitzner 2016-08-04 11:14:27 +02:00
parent e453c292a3
commit 8b0300df83
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Language/Haskell/Brittany/BriLayouter.hs
View File

@ -639,7 +639,7 @@ getSpacings limit bridoc = rec bridoc
BDFAlt [] -> error "empty BDAlt" BDFAlt [] -> error "empty BDAlt"
-- BDAlt (alt:_) -> rec alt -- BDAlt (alt:_) -> rec alt
BDFAlt alts -> do BDFAlt alts -> do
r <- filterAndLimit . join . transpose <$> (rec `mapM` alts) r <- filterAndLimit . join <$> (rec `mapM` alts)
return r return r
BDFForceMultiline bd -> rec bd BDFForceMultiline bd -> rec bd
BDFForceSingleline bd -> do BDFForceSingleline bd -> do