0
/
chan-delorean
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add email field to db, data defs

This commit is contained in:
towards-a-new-leftypol 2023-11-01 19:33:22 -04:00
parent 2fcd1d0582
commit e83df86725
3 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Backfill.hs
View File

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

1
src/JSONPost.hs
View File

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

1
src/PostsType.hs
View File

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