add nsfw tags & put tags on singlepage

This commit is contained in:
Rhiannon Morris 2020-07-12 05:42:31 +02:00
parent bf6308de32
commit f61e9916fb
2 changed files with 16 additions and 1 deletions

View file

@ -20,6 +20,7 @@ data Info =
date :: !Day,
title :: !(Maybe Text),
tags :: ![Text],
nsfwTags :: ![Text],
description :: !(Maybe Text),
images :: ![Image],
thumb :: !Text,
@ -49,6 +50,7 @@ instance FromYAML Info where
Info <$> m .: "date"
<*> m .:? "title"
<*> m .:? "tags" .!= []
<*> m .:? "nsfwTags" .!= []
<*> m .:? "description"
<*> m .: "images"
<*> m .: "thumb"