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

Fix stupid haddock needs

pull/51/head
Lennart Spitzner 2017-08-16 00:14:56 +02:00
parent 6f4eec245e
commit aba7d13f67
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/Internal/Backend.hs
View File

@ -370,7 +370,7 @@ alignColsLines bridocs = do -- colInfos `forM_` \colInfo -> do
Just (_, maxs, _) -> sum maxs Just (_, maxs, _) -> sum maxs
maxCols = {-Foldable.foldl1 maxZipper-} maxCols = {-Foldable.foldl1 maxZipper-}
fmap colAggregation $ transpose $ Foldable.toList fmap colAggregation $ transpose $ Foldable.toList
-- $ trace ("colss=" ++ show colss ++ " for" ++ take 100 (show $ briDocToDoc $ head bridocs)) -- $ trace ("colss=" ++ show colss ++ " for" ++ take 100 (show $ briDocToDoc $ head bridocs))
colss colss
(_, posXs) = mapAccumL (\acc x -> (acc + x, acc)) curX maxCols (_, posXs) = mapAccumL (\acc x -> (acc + x, acc)) curX maxCols
counter count l = if List.last posXs + List.last l <= colMax counter count l = if List.last posXs + List.last l <= colMax