Update rawleydotxyz.ml

This commit is contained in:
Rawley
2023-01-02 08:40:20 -06:00
committed by GitHub
parent 567ea673b7
commit 84527bd0a3

View File

@@ -1,8 +1,8 @@
open Lwt.Infix
let () = Lwt_main.run @@ 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 e -> failwith (Caqti_error.show e)
| Error e -> failwith (Caqti_error.show e))
let () =
Dream.run