adjust pipe

This commit is contained in:
rf
2022-09-24 13:22:13 -05:00
parent dead5f2860
commit 050aa51a75

View File

@@ -94,7 +94,7 @@ module Render = struct
<link>https://rawley.xyz/blog/%s</link> <link>https://rawley.xyz/blog/%s</link>
<description></description> <description></description>
</item>|eos} </item>|eos}
(html_unescape p.title) p.slug p.title p.slug
let let
@@ -151,7 +151,10 @@ module Render = struct
posts_t >>= function posts_t >>= function
| Error e -> handle_error e | Error e -> handle_error e
| Ok posts -> | Ok posts ->
let () = List.iter (fun t -> generate_rss_item t |> add_str) posts in let () = List.iter (fun t -> generate_rss_item t
|> html_unescape
|> add_str) posts
in
let () = let () =
add_str add_str
{eos|</channel> {eos|</channel>