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