diff options
Diffstat (limited to 'lore/Biz/Ibb/Influencers.hs')
| -rw-r--r-- | lore/Biz/Ibb/Influencers.hs | 33 |
1 files changed, 1 insertions, 32 deletions
diff --git a/lore/Biz/Ibb/Influencers.hs b/lore/Biz/Ibb/Influencers.hs index a31eab4..c31e962 100644 --- a/lore/Biz/Ibb/Influencers.hs +++ b/lore/Biz/Ibb/Influencers.hs @@ -4,38 +4,7 @@ module Biz.Ibb.Influencers where -import Data.Aeson -import Data.Text (Text) -import Data.Data (Data, Typeable) -import GHC.Generics (Generic) - -data Person = Person - { _name :: Text - -- ^ Their full name. - , _pic :: Text - -- ^ A link to their picture. - , _twitter :: Text - -- ^ Their twitter handle, without the `@` prefix. - , _website :: Text - -- ^ Their main website, fully formed: `https://example.com` - , _books :: [Book] - -- ^ A short list of the books they recommend. - , _blurb :: Text - -- ^ A short "about" section, like you would see on the jacket flap of a book. - } deriving (Generic, Show, Eq, Typeable, Data, Ord) - -instance FromJSON Person -instance ToJSON Person - -data Book = Book - { _title :: Text - , _author :: Text - , _amznref :: Text - -- ^ Amazon REF number, for creating affiliate links. - } deriving (Generic, Show, Eq, Typeable, Data, Ord) - -instance FromJSON Book -instance ToJSON Book +import Biz.Ibb.Core allPeople :: [Person] allPeople = |