From 8218b6e1990a3cd4aa141bfa9bd219690fe63166 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Thu, 1 Sep 2016 15:19:56 +0200 Subject: [PATCH] Fix tuple type multiline layouting --- src/Language/Haskell/Brittany/Layouters/Type.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/Haskell/Brittany/Layouters/Type.hs b/src/Language/Haskell/Brittany/Layouters/Type.hs index f8dc199..d936b3f 100644 --- a/src/Language/Haskell/Brittany/Layouters/Type.hs +++ b/src/Language/Haskell/Brittany/Layouters/Type.hs @@ -364,7 +364,7 @@ layoutType ltype@(L _ typ) = docWrapNode ltype $ case typ of docs <- docSharedWrapper layoutType `mapM` typs docAlt [ docSeq $ [docLit $ Text.pack "("] - ++ List.intersperse docCommaSep docs + ++ List.intersperse docCommaSep (docForceSingleline <$> docs) ++ [docLit $ Text.pack ")"] , let start = docCols ColTyOpPrefix [docParenLSep, head docs]