Fix line length calculation for column layouting

2016-08-11 23:34:35 +02:00 · 2016-08-11 23:34:35 +02:00 · d30a712a75
parent dd60900da4
commit d30a712a75
1 changed files with 2 additions and 1 deletions
--- a/src/Language/Haskell/Brittany/BriLayouter.hs
+++ b/src/Language/Haskell/Brittany/BriLayouter.hs
@ -1244,7 +1244,8 @@ briDocLineLength briDoc = flip StateS.evalState False $ rec briDoc
    BDAnnotationPrior _ bd -> rec bd
    BDAnnotationKW _ _ bd -> rec bd
    BDAnnotationRest  _ bd -> rec bd
-    BDLines (l:_) -> rec l
+    BDLines ls@(_:_) ->
+      return $ maximum $ ls <&> \l -> StateS.evalState (rec l) False 
    BDLines [] -> error "briDocLineLength BDLines []"
    BDEnsureIndent _ bd -> rec bd
    BDProhibitMTEL bd -> rec bd