From 7f61bd7bdc13f06c0d119015c57f55526ba4dc6f Mon Sep 17 00:00:00 2001
From: rawley fowler <rawleyfowler@gmail.com>
Date: Wed, 7 Sep 2022 18:22:29 -0600
Subject: [PATCH] add hidden date field for sorting posts

---
 db/database.ml  |  2 +-
 esy.json        |  2 +-
 rawleydotxyz.ml | 10 ++++++----
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/db/database.ml b/db/database.ml
index e7f0cc5..52f8c0b 100644
--- a/db/database.ml
+++ b/db/database.ml
@@ -29,7 +29,7 @@ module Q = struct
        content text NOT NULL,
        date text NOT NULL,
        active TINYINT DEFAULT 1,
-       hidden_date DEFAULT (unixepoch('now'))
+       hidden_date timestamp DEFAULT (strftime('%s', 'now')))
        |eos}
   
   let create_blog_post =
diff --git a/esy.json b/esy.json
index cf7e7b1..5d0e90c 100644
--- a/esy.json
+++ b/esy.json
@@ -6,7 +6,7 @@
 	"@opam/caqti": "*",
 	"@opam/lwt_ppx": "*",
 	"@opam/caqti-driver-sqlite3": "*",
-	"ocaml": "4.12.x"
+	"ocaml": "*"
     },
 
     "scripts": {
diff --git a/rawleydotxyz.ml b/rawleydotxyz.ml
index 12ab72f..d9bebc7 100644
--- a/rawleydotxyz.ml
+++ b/rawleydotxyz.ml
@@ -2,12 +2,14 @@ open Lwt.Infix
 open Database
 open Render
 
-exception DatabaseCreationFailure
+let db_created = ref true
 
-let _ =
-  Database.create_blog_post_table () >>= function
+let _ = Database.create_blog_post_table () >>= function
   | Ok () -> Lwt_io.print "Database initialized successfully.\n"
-  | Error _ -> raise DatabaseCreationFailure
+  | Error _ -> Lwt.return (db_created := false)
+
+let () = Unix.sleepf 2.0
+let () = if not !db_created then failwith "Could not initialize database"
 
 let () =
   Dream.run