package sihl
The modular functional web framework
Install
Dune Dependency
Authors
Maintainers
Sources
sihl-queue-0.1.6.tbz
sha256=574c73c97ea0bc57144853b28df6125855a040ef0378f3bf180b4331dde93f9d
sha512=92c474ed3b6609395799f77259fc424af37dcad53095773ca2f2cdd4757a1607a5b53b6594cd7b6ddabeb40ebba67bb9544ff0f31dc228c87cfe015afa520aaa
doc/src/sihl.middleware/middleware_session.ml.html
Source file middleware_session.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
open Lwt.Syntax let log_src = Logs.Src.create ~doc:"Session Middleware" "sihl.middleware.session" module Logs = (val Logs.src_log log_src : Logs.LOG) let key : Session.t Opium_kernel.Hmap.key = Opium_kernel.Hmap.Key.create ("session", Session.sexp_of_t) ;; let find req = Opium_kernel.Hmap.find_exn key (Opium_kernel.Request.env req) let find_opt req = try Some (find req) with | _ -> None ;; let set session req = let env = Opium_kernel.Request.env req in let env = Opium_kernel.Hmap.add key session env in { req with env } ;; module Make (SessionService : Session.Sig.SERVICE) = struct let m ?( = "session_key") () = let filter handler req = let ctx = Http.Request.to_ctx req in match Http.Request.cookie cookie_key req with | Some session_key -> (* A session cookie was found *) let* session = SessionService.find_opt ctx ~key:session_key in (match session with | Some session -> let* session = if Session.is_expired (Ptime_clock.now ()) session then ( Logs.debug (fun m -> m "SESSION: Session expired, creating new one"); let* session = SessionService.create ctx [] in Lwt.return session) else Lwt.return session in let req = set session req in handler req | None -> let* session = SessionService.create ctx [] in let req = set session req in let* res = handler req in Http.Response.add_cookie (cookie_key, session.key) res |> Lwt.return) | None -> (* No session cookie found *) let* session = SessionService.create ctx [] in let req = set session req in let* res = handler req in res |> Http.Response.add_cookie (cookie_key, session.key) |> Lwt.return in Opium_kernel.Rock.Middleware.create ~name:"session" ~filter ;; end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>