From b75efdb2c81bc34b138d316e0893de216e68df91 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 2 Sep 2019 10:26:15 -0700
Subject: [ibb] reorganize types

Move Person and Book to Biz.Ibb.Core. Now, Biz.Ibb.Influencers is just a list of
the people we want to seed the database with. Eventually we will delete this file.
---
 lore/Biz/Ibb/Influencers.hs | 33 +--------------------------------
 1 file changed, 1 insertion(+), 32 deletions(-)

(limited to 'lore/Biz/Ibb/Influencers.hs')

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 =
-- 
cgit v1.2.3