From d30a712a75c45763382ad3c17f2ca622524f9bd6 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Thu, 11 Aug 2016 23:34:35 +0200
Subject: [PATCH] Fix line length calculation for column layouting

---
 src/Language/Haskell/Brittany/BriLayouter.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Language/Haskell/Brittany/BriLayouter.hs b/src/Language/Haskell/Brittany/BriLayouter.hs
index e4d8fd2..6b5b874 100644
--- 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