ivan/site
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

now in ocaml

Browse Source
This commit is contained in:
rawley fowler
2022-08-29 21:04:10 -06:00
commit 7d38de6435
27 changed files with 724 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
rawleydotxyz.ml Normal file
View File

@@ -0,0 +1,25 @@
open Lwt.Infix
open Database
open Render
exception DatabaseCreationFailure
let _ =
Database.create_blog_post_table () >>= function
| Ok () -> Lwt_io.print "Database was initialized successfully\n"
| Error _ -> raise DatabaseCreationFailure
let () =
Dream.run
@@ Dream.logger
@@ Dream.router [
Dream.get "/static/**" @@ Dream.static "static";
Dream.get "/" @@ Dream.from_filesystem "html" "index.html";
Dream.get "/resume" @@ Dream.from_filesystem "html" "resume.html";
Dream.get "/philosophy" @@ Dream.from_filesystem "html" "philosophy.html";
Dream.get "/web-ring" @@ Dream.from_filesystem "html" "web-ring.html";
Dream.get "/blog" Render.render_blog_index;
Dream.scope "/blog" [Dream.origin_referrer_check] [
Dream.get "/:post" Render.render_blog_post
];
]