@@ -314,7 +314,7 @@ prettyRecord dealiaser recordInfo =
314 (P.lbrace <+> P.text x <+> P.text "|")
314 (P.lbrace <+> P.text x <+> P.text "|")
317− [ P.cat (zipWith (<+>) (P.space : repeat P.comma) (map prettyField fields))
317+ [ P.sep (P.punctuate P.comma (map prettyField fields))
318 , P.rbrace
318 , P.rbrace