nice nice. lsp still doesnt work tho

1 files changed, 10 insertions, 3 deletions

diff --git a/lib/html.ml b/lib/html.ml
index db5ad51..35c7b42 100644
--- a/lib/html.ml
+++ b/lib/html.ml
@@ -1,6 +1,7 @@
 open Piaf
+open Shared
 
-type pool = ((module Rapper_helper.CONNECTION), Caqti_error.t) Caqti_eio.Pool.t
+type pool = (Query.conn, Caqti_error.t) Caqti_eio.Pool.t
 
 (* This is the main handler function for the GET /posts endpoint. *)
 (* It takes a database connection pool and a Piaf request as input. *)
@@ -33,7 +34,9 @@ let get_root (db_pool : pool) (request : Request.t) =
     db_pool
 ;;
 
-let render page (db_pool : pool) (_request : Request.t) =
+type paget = ?key:string -> Query.conn -> unit -> React.element
+
+let render_conn (page : paget) (db_pool : pool) (_request : Request.t) =
   (* Caqti_eio.Pool.use *)
   (* (fun conn -> *)
   (* let posts_or = Query.get_poasts () conn in *)
@@ -44,6 +47,10 @@ let render page (db_pool : pool) (_request : Request.t) =
   (* | Ok _posts -> Ok (page |> ReactDOM.renderToString |> Http.send_raw_html)) *)
   (* db_pool *)
   Caqti_eio.Pool.use
-    (fun conn -> Ok (conn |> page |> ReactDOM.renderToString |> Http.send_raw_html))
+    (fun conn -> Ok (page conn () |> ReactDOM.renderToString |> Http.send_raw_html))
     db_pool
 ;;
+
+let render page (_db_pool : pool) (_request : Request.t) =
+  Ok (page |> ReactDOM.renderToString |> Http.send_raw_html)
+;;