Add source column to articles table.HEADmain

1 files changed, 3 insertions, 0 deletions

diff --git a/entities/article.rkt b/entities/article.rkt
index 14319d7..4da6cec 100644
--- a/entities/article.rkt
+++ b/entities/article.rkt
@@ -6,6 +6,7 @@
          article-id
          article-timestamp
          article-hash
+         article-source
          article-title
          article-body
 
@@ -18,6 +19,7 @@
 (struct article ([id : String]
                  [timestamp : date]
                  [hash : String]
+                 [source : String]
                  [title : String]
                  [body : String])
   #:type-name Article
@@ -34,6 +36,7 @@
   (make-article-with-tags (article-id a)
                           (article-timestamp a)
                           (article-hash a)
+                          (article-source a)
                           (article-title a)
                           (article-body a)
                           tags))