From e83df86725969a609cc3a43a96a63d8fa8721ff7 Mon Sep 17 00:00:00 2001 From: towards-a-new-leftypol Date: Wed, 1 Nov 2023 19:33:22 -0400 Subject: [PATCH] Add email field to db, data defs --- src/Backfill.hs | 1 + src/JSONPost.hs | 1 + src/PostsType.hs | 1 + 3 files changed, 3 insertions(+) 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)