Fix tuple type multiline layouting

2016-09-01 15:19:56 +02:00 · 2016-09-01 15:19:56 +02:00 · 8218b6e199
parent 40509dc3f0
commit 8218b6e199
1 changed files with 1 additions and 1 deletions
--- 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]