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

@ -44,7 +44,7 @@ dependGallery ginfo infos build data_ tmp =
dependGallery' :: GalleryInfo -> [(FilePath, Info)]
-> FilePath -> FilePath -> FilePath -> Builder
dependGallery' (GalleryInfo {title, description, prefix, filters})
dependGallery' (GalleryInfo {title, desc, prefix, filters})
infos' build data_ tmp =
let infos = filter (matchFilters filters . #second) infos'
files = map #first infos
@ -66,7 +66,7 @@ dependGallery' (GalleryInfo {title, description, prefix, filters})
$$(call gallery,$title',$@prefix,$flags)
$@rss: $@files' $$(MAKEPAGES)
$$(call rss,$title',$description',$@prefix,$@data_)
$$(call rss,$title',$desc',$@prefix,$@data_)
$rules
@ -75,7 +75,7 @@ dependGallery' (GalleryInfo {title, description, prefix, filters})
where
flags = filtersToFlags filters
title' = substComma title
description' = substComma description
desc' = substComma desc
substComma = textMap \case ',' -> "$(comma)"; c -> fromChar c
makeRules :: FilePath -- ^ prefix