add field for cw but not using it yet
This commit is contained in:
parent
94bd16504c
commit
5a5127a78c
1 changed files with 2 additions and 0 deletions
|
@ -22,6 +22,7 @@ data Info =
|
|||
date :: !Day,
|
||||
title :: !(Maybe Text),
|
||||
artist :: !(Maybe Artist), -- nothing = me, obv
|
||||
warning :: !(Maybe Text),
|
||||
tags :: ![Text],
|
||||
nsfwTags :: ![Text],
|
||||
description :: !(Maybe Text),
|
||||
|
@ -65,6 +66,7 @@ instance FromYAML Info where
|
|||
Info <$> m .: "date"
|
||||
<*> m .:? "title"
|
||||
<*> m .:? "artist"
|
||||
<*> m .:? "warning"
|
||||
<*> m .:? "tags" .!= []
|
||||
<*> m .:? "nsfwTags" .!= []
|
||||
<*> m .:? "description"
|
||||
|
|
Loading…
Reference in a new issue