WIP on theme admin page (#20)

2022-07-22 21:19:19 -04:00
parent 4514c4864d
commit 81fe03b8f3
15 changed files with 162 additions and 38 deletions
@@ -90,7 +90,7 @@ let private goAway : HttpHandler = RequestErrors.BAD_REQUEST "really?"
 // GET /admin/users
 let all : HttpHandler = requireAccess WebLogAdmin >=> fun next ctx -> task {
    let! hash = userListHash ctx
-    let! tmpl = TemplateCache.get "admin" "user-list-body" ctx.Data 
+    let! tmpl = TemplateCache.get adminTheme "user-list-body" ctx.Data 
    return!
           addToHash "user_list" (tmpl.Render hash) hash
        |> adminView "user-list" next ctx