git.iko.soy/elk
on master help sign in
Show extended records nicer
a2043a6Evan Czaplicki
src/Elm/Compiler/Type.hs+3−2
compare with master
unifiedsplit
@@ -88,9 +88,10 @@ toDoc context tipe =
88 (P.lbrace <+> P.text x <+> P.text "|")
88 (P.lbrace <+> P.text x <+> P.text "|")
89 4
89 4
90 (P.sep
90 (P.sep
91− [ P.cat (zipWith (<+>) (P.space : repeat P.comma) (map prettyField fields))
91+ [ P.sep (P.punctuate P.comma (map prettyField fields))
92 , P.rbrace
92 , P.rbrace
93− ])
93+ ]
94+ )
94 where
95 where
95 prettyField (field, tipe) =
96 prettyField (field, tipe) =
96 P.text field <+> P.text ":" <+> toDoc None tipe
97 P.text field <+> P.text ":" <+> toDoc None tipe