Add email field to db, data defs

src/Backfill.hs

@@ -201,6 +201,7 @@ apiPostToArchivePost thread post =
     , Posts.body            = JSONPosts.com post
     , Posts.name            = JSONPosts.name post
     , Posts.subject         = JSONPosts.sub post
+    , Posts.email           = JSONPosts.email post
     , Posts.thread_id       = Threads.thread_id thread
     }
 

src/JSONPost.hs

@@ -14,6 +14,7 @@ data Post = Post
     , com            :: Maybe Text
     , name           :: Maybe Text
     , sub            :: Maybe Text
+    , email          :: Maybe Text
     , time           :: Int
     , omitted_posts  :: Maybe Int
     , omitted_images :: Maybe Int

src/PostsType.hs

@@ -17,5 +17,6 @@ data Post = Post
     , body            :: Maybe Text
     , name            :: Maybe Text
     , subject         :: Maybe Text
+    , email           :: Maybe Text
     , thread_id       :: Int
     } deriving (Show, Generic, FromJSON, ToJSON)