From d342fc697187afab0fccb06361bd565ffbc903dd Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Wed, 15 Jul 2020 11:34:56 +0200 Subject: [PATCH] make thumb optional --- make-pages/Info.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/make-pages/Info.hs b/make-pages/Info.hs index c63fa7b..ce2c69b 100644 --- a/make-pages/Info.hs +++ b/make-pages/Info.hs @@ -27,7 +27,7 @@ data Info = nsfwTags :: ![Text], description :: !(Maybe Text), images :: ![Image], - thumb :: !Text, + thumb :: !(Maybe Text), links :: ![Link] } deriving (Eq, Show) @@ -71,7 +71,7 @@ instance FromYAML Info where <*> m .:? "nsfw-tags" .!= [] <*> m .:? "description" <*> m .: "images" - <*> m .: "thumb" + <*> m .:? "thumb" <*> m .:? "links" .!= [] instance FromYAML Artist where