small improvements here and there

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