fix pretty printing of argument sets

This commit is contained in:
Benno Fünfstück 2014-08-16 00:16:46 +02:00
parent bce48c438c
commit 568c153c77

View file

@ -58,7 +58,7 @@ prettyFormals (FormalRightAt s n) = prettyParamSet s <> text "@" <> text (unpack
prettyParamSet :: FormalParamSet NixDoc -> Doc
prettyParamSet (FormalParamSet args) =
lbrace <+> hcat (map prettySetArg $ toList args) <+> rbrace
lbrace <+> (hcat . punctuate (comma <> space) . map prettySetArg) (toList args) <+> rbrace
prettyBind :: Binding NixDoc -> Doc
prettyBind (NamedVar n v) = prettySelector n <+> equals <+> withoutParens v <> semi