From 3b312a537af6310976def501e1d3890a1f7535cd Mon Sep 17 00:00:00 2001
From: Rawley <75388349+rawleyfowler@users.noreply.github.com>
Date: Mon, 2 Jan 2023 08:37:57 -0600
Subject: [PATCH] Remove ugly garbage in startup

---
 rawleydotxyz.ml | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/rawleydotxyz.ml b/rawleydotxyz.ml
index 7865023..ddea295 100644
--- a/rawleydotxyz.ml
+++ b/rawleydotxyz.ml
@@ -1,13 +1,9 @@
 open Lwt.Infix
+open Lwt.Syntax
 
-let db_created = ref true
-
-let _ = Database.create_blog_post_table () >>= function
+let () = Lwt_main.run @@ Database.create_blog_post_table () >>= function
   | Ok () -> Lwt_io.print "Database initialized successfully.\n"
-  | Error _ -> Lwt.return (db_created := false)
-
-let () = Unix.sleepf 2.0
-let () = if not !db_created then failwith "Could not initialize database"
+  | Error e -> failwith (Caqti_error.show e)
 
 let () =
   Dream.run