rename description to desc

This commit is contained in:
Rhiannon Morris 2020-07-25 01:17:47 +02:00
parent 49eff9c009
commit 87c3fa5b75
7 changed files with 38 additions and 38 deletions

View file

@ -31,7 +31,7 @@ make nsfw dir = toLazyText . make' nsfw dir
make' :: Bool -> FilePath -> Info -> Builder
make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
description, nsfwDescription, images, links}) = [b|@0
desc, nsfwDesc, images, links}) = [b|@0
<!DOCTYPE html>
<html lang=en>
<meta charset=utf-8>
@ -84,7 +84,7 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
download0 = fromMaybe path0 (#download image0)
path0' = pageFile path0
descSection = makeDesc nsfw description nsfwDescription
descSection = makeDesc nsfw desc nsfwDesc
tagsList = makeTags nsfw tags nsfwTags
linksList = extLinks nsfw links