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

Fix tuple type multiline layouting

pull/3/head
Lennart Spitzner 2016-09-01 15:19:56 +02:00
parent 40509dc3f0
commit 8218b6e199
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/Layouters/Type.hs
View File

@ -364,7 +364,7 @@ layoutType ltype@(L _ typ) = docWrapNode ltype $ case typ of
docs <- docSharedWrapper layoutType `mapM` typs docs <- docSharedWrapper layoutType `mapM` typs
docAlt docAlt
[ docSeq $ [docLit $ Text.pack "("] [ docSeq $ [docLit $ Text.pack "("]
++ List.intersperse docCommaSep docs ++ List.intersperse docCommaSep (docForceSingleline <$> docs)
++ [docLit $ Text.pack ")"] ++ [docLit $ Text.pack ")"]
, let , let
start = docCols ColTyOpPrefix [docParenLSep, head docs] start = docCols ColTyOpPrefix [docParenLSep, head docs]