picnoir
/
hnix
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pretty: Fix displaying double quotes for strings

This commit is contained in:
Luca Bruno 2014-07-07 17:39:49 +02:00
parent 610fc3c780
commit 5849e17529
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Nix/Pretty.hs
View File

@ -38,9 +38,13 @@ prettyOper (NDiv r1 r2) = infixOper r1 "/" r2
prettyOper (NConcat r1 r2) = infixOper r1 "++" r2
prettyAtom :: NAtom -> Doc
prettyAtom (NStr s) = doubleQuotes $ text $ unpack $ s
prettyAtom atom = text $ unpack $ atomText atom
prettyNix :: NExpr -> Doc
prettyNix (Fix expr) = go expr where
go (NConstant atom) = text $ unpack $ atomText atom
go (NConstant atom) = prettyAtom atom
go (NOper oper) = prettyOper oper
go (NList list) = lbrack <+> (fsep $ map prettyNix list) <+> rbrack