diff --git a/src/Backfill.hs b/src/Backfill.hs index 7976ac0..cd0731b 100644 --- a/src/Backfill.hs +++ b/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 } diff --git a/src/JSONPost.hs b/src/JSONPost.hs index 2451664..a55f342 100644 --- a/src/JSONPost.hs +++ b/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 diff --git a/src/PostsType.hs b/src/PostsType.hs index a018369..2a94cda 100644 --- a/src/PostsType.hs +++ b/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)