1 files changed, 13 insertions, 3 deletions
diff --git a/lore/Biz/Ibb/Influencers.hs b/lore/Biz/Ibb/Influencers.hs
index f00fe2e..a31eab4 100644
--- a/lore/Biz/Ibb/Influencers.hs
+++ b/lore/Biz/Ibb/Influencers.hs
@@ -1,19 +1,28 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+
 module Biz.Ibb.Influencers where
 
 import Data.Aeson
-import Data.Text.Lazy (Text)
+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
-  } deriving (Generic, Show, Eq)
+  -- ^ 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
@@ -22,7 +31,8 @@ data Book = Book
   { _title :: Text
   , _author :: Text
   , _amznref :: Text
-  } deriving (Generic, Show, Eq)
+  -- ^ Amazon REF number, for creating affiliate links.
+  } deriving (Generic, Show, Eq, Typeable, Data, Ord)
 
 instance FromJSON Book
 instance ToJSON Book