remove background stuff that didnt work

This commit is contained in:
Rhiannon Morris 2020-07-22 00:11:14 +02:00
parent e719d41110
commit 488a4cdd08
2 changed files with 2 additions and 5 deletions

View file

@ -34,7 +34,6 @@ data Info =
nsfwTags :: ![Text],
description :: !(Maybe Text),
images :: ![Image],
background :: !(Maybe Text),
thumb' :: !(Maybe FilePath),
links :: ![Link]
}
@ -101,7 +100,6 @@ instance FromYAML Info where
<*> m .:? "nsfw-tags" .!= []
<*> m .:? "description"
<*> (m .: "images" >>= imageList)
<*> m .:? "background"
<*> m .:? "thumb"
<*> m .:? "links" .!= []