diff options
author | Marc Coquand <marcc@fastmail.fr> | 2023-12-04 06:34:28 -0600 |
---|---|---|
committer | Marc Coquand <marcc@fastmail.fr> | 2023-12-04 06:34:28 -0600 |
commit | ebfa52418cfa47fc58afec062ca06709399f7e2f (patch) | |
tree | 90c61b346fc669b9006540e5f9f905197f797a35 /lib | |
parent | 5a51a70a6ffb40b568be50c2245d8f6178b4c477 (diff) | |
download | wormhole-ebfa52418cfa47fc58afec062ca06709399f7e2f.tar.gz wormhole-ebfa52418cfa47fc58afec062ca06709399f7e2f.tar.bz2 wormhole-ebfa52418cfa47fc58afec062ca06709399f7e2f.zip |
Don't escape characters
Diffstat (limited to 'lib')
-rw-r--r-- | lib/post.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/post.ml b/lib/post.ml index dbca936..b542310 100644 --- a/lib/post.ml +++ b/lib/post.ml @@ -8,6 +8,7 @@ type t = { author : string; author_link : string; } +[@@deriving yojson] let published t = t.published @@ -20,7 +21,7 @@ let to_rss_entry post = Xml.tag "id" [] [ Xml.entry post.link ]; Xml.tag "updated" [] [ Xml.entry post.published ]; Xml.tag "summary" - [ ("xml:lang", "\"en\""); ("type", "\"html\"") ] + [ ("xml:lang", "en"); ("type", "html") ] [ Xml.entry post.summary ]; ] |