14 lines
767 B
Clojure
14 lines
767 B
Clojure
(ns auto-ap.ssr.core
|
|
(:require
|
|
[auto-ap.routes.utils
|
|
:refer [wrap-admin wrap-client-redirect-unauthenticated wrap-secure]]
|
|
[auto-ap.ssr.admin :as admin]
|
|
[auto-ap.ssr.company.company-1099 :as company-1099]))
|
|
|
|
;; from auto-ap.ssr-routes, because they're shared
|
|
(def key->handler {:admin-history (wrap-client-redirect-unauthenticated (wrap-secure (wrap-admin admin/history)))
|
|
:admin-history-search (wrap-client-redirect-unauthenticated (wrap-secure (wrap-admin admin/history-search)))
|
|
:admin-history-inspect (wrap-client-redirect-unauthenticated (wrap-secure (wrap-admin admin/inspect)))
|
|
:company-1099 (wrap-client-redirect-unauthenticated (wrap-secure (wrap-admin company-1099/page)))})
|
|
|