From b41c9ec4a2cf26cea263e24145e23b7165cdd9f1 Mon Sep 17 00:00:00 2001 From: polwex Date: Fri, 18 Jul 2025 19:07:53 +0700 Subject: yes! --- dune | 6 ++++++ lib/pages/BlogIndex.mlx | 2 +- lib/router.ml | 5 +++-- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/dune b/dune index e69de29..98d0c1e 100644 --- a/dune +++ b/dune @@ -0,0 +1,6 @@ +(rule + (target styles.css) + (deps + (glob_files_rec assets/*)) + (action + (bash "sh ~/code/ocaml/bs5/tailwind.sh"))) diff --git a/lib/pages/BlogIndex.mlx b/lib/pages/BlogIndex.mlx index 7f13bed..a7a680f 100644 --- a/lib/pages/BlogIndex.mlx +++ b/lib/pages/BlogIndex.mlx @@ -15,7 +15,7 @@ module Layout = struct (React.string "Bloody Shovel 5") - + diff --git a/lib/router.ml b/lib/router.ml index c3b4af2..ee789c6 100644 --- a/lib/router.ml +++ b/lib/router.ml @@ -27,8 +27,9 @@ let static (path : Parts.t) (_db : Handler.pool) (_req : Request.t) : (Response.t, Caqti_error.t) result = let pat = Parts.wildcard_match path in - Logs.info (fun d -> d "static path %S\n" pat); - match Body.sendfile pat with + let asset_path = "assets/" ^ pat in + Logs.info (fun d -> d "static path %S\n" asset_path); + match Body.sendfile asset_path with | Error _ -> Ok (Response.create `Not_found) | Ok body -> (match Body.to_string body with -- cgit v1.2.3