adjust pipe
This commit is contained in:
@@ -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>
|
||||||
|
|||||||
Reference in New Issue
Block a user