format long desc as a dl in rss

This commit is contained in:
Rhiannon Morris 2022-01-04 20:13:32 +01:00
parent a301efa521
commit e1718bb861

View file

@ -79,7 +79,7 @@ makeItem root prefix nsfw path i@(Info {title, artist}) = [b|@4
makeDesc :: Desc -> Builder
makeDesc NoDesc = ""
makeDesc (TextDesc txt) = [b|$txt|]
makeDesc (LongDesc fs) = [b|$fields|]
makeDesc (LongDesc fs) = [b|<dl>$fields</dl>|]
where
fields = map makeField fs
makeField (DescField {name, text}) = [b|<b>$name</b>: $text|]
makeField (DescField {name, text}) = [b|<dt>$name <dd>$text|]