From 449c1f71290812e991ca6e053c9eb65dddc131dd Mon Sep 17 00:00:00 2001
From: Rawley Fowler <75388349+rawleyfowler@users.noreply.github.com>
Date: Wed, 7 Sep 2022 12:22:27 -0600
Subject: [PATCH] Add unix epoch

---
 db/database.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/db/database.ml b/db/database.ml
index 8cd6523..e529ada 100644
--- a/db/database.ml
+++ b/db/database.ml
@@ -28,7 +28,8 @@ module Q = struct
        title text NOT NULL,
        content text NOT NULL,
        date text NOT NULL,
-       active TINYINT DEFAULT 1)
+       active TINYINT DEFAULT 1,
+       hidden_date INT GENERATED ALWAYS AS unixepoch('now')
        |eos}
   
   let create_blog_post =
@@ -37,7 +38,7 @@ module Q = struct
 
   let get_all_blog_posts =
     unit ->* blog_post @@
-      "SELECT slug, title, content, date FROM blog_post WHERE active = 1"
+      "SELECT slug, title, content, date FROM blog_post WHERE active = 1 ORDER BY hidden_date DESC"
 
   let get_all_blog_posts_for_display =
     unit ->* tup2 string string @@