diff options
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/serve.fnl | 23 |
1 files changed, 2 insertions, 21 deletions
diff --git a/bin/serve.fnl b/bin/serve.fnl index a1d1737..6eac601 100644 --- a/bin/serve.fnl +++ b/bin/serve.fnl @@ -1,29 +1,12 @@ (local lib (require :lib)) -( when _G.unpack +(when _G.unpack (tset table :unpack _G.unpack)) (fn _G.must [...] (local (ok? result) ...) (if ok? result (error result))) -(fn _G.reload [module] - (local old (require module)) - (tset package :loaded module nil) - (local (ok? new) (pcall require module)) - (if (not ok?) - (do - (tset package :loaded module old) - (error new)) - (when (= (type new) :table) - (do - (each [k v (pairs new)] - (tset old k v)) - (each [k (pairs old)] - (when (not (. new k)) - (tset old k nil))) - (tset package :loaded module old))))) - (local db (_G.must (luna.db.open "file:var/db.sqlite?_journal=WAL&_sync=NORMAL&_txlock=immediate"))) @@ -177,9 +160,7 @@ (local routes (scan-routes "pages")) (fn authenticate-request [db request] - (let [cookies-header (. request.headers :Cookie) - cookies (if cookies-header (lib.parse-values cookies-header) {}) - session-id cookies.auth] + (let [session-id request.cookies.auth] (if (not (lib.empty? session-id)) (let [sessions (_G.must |