Mic92/stockholm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lib.xml.render-term: quote strings

Browse Source
This commit is contained in:
tv 2015-03-20 10:58:11 +01:00
parent 763a81ac08
commit 270ceb7676
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/xml.nix
View File

@ -68,12 +68,16 @@ rec {
bool = toJSON content; bool = toJSON content;
int = toJSON content; int = toJSON content;
list = concatMapStrings render content; list = concatMapStrings render content;
string = content; string = quote content;
}; };
in in
{ name, attrs, content }: { name, attrs, content }:
# XXX we're currently encoding too much information with `null`..
if name == null if name == null
then "" then
if content == null
then ""
else content
else let else let
attrs' = render-attrs attrs; attrs' = render-attrs attrs;
content' = render-content content; content' = render-content content;