Show extended records nicer
commita2043a6c03a4187c190aed834a435b371ecc881c
authorEvan Czaplicki <info@elm-lang.org>
dateWed 24 Jun 2015, 11:54 (11 years ago)
parent2f4b37f
src/Elm/Compiler/Type.hs+3−2
@@ -88,9 +88,10 @@ toDoc context tipe =
8888 (P.lbrace <+> P.text x <+> P.text "|")
8989 4
9090 (P.sep
91− [ P.cat (zipWith (<+>) (P.space : repeat P.comma) (map prettyField fields))
91+ [ P.sep (P.punctuate P.comma (map prettyField fields))
9292 , P.rbrace
93− ])
93+ ]
94+ )
9495 where
9596 prettyField (field, tipe) =
9697 P.text field <+> P.text ":" <+> toDoc None tipe