add nsfw tags & put tags on singlepage
This commit is contained in:
parent
bf6308de32
commit
f61e9916fb
2 changed files with 16 additions and 1 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue