15 lines
576 B
Plaintext
15 lines
576 B
Plaintext
;; This an Artanis ENTRY file, don't remove it!
|
|
|
|
(use-modules (artanis artanis)
|
|
;; Put modules you want to be imported here
|
|
;; only for this file, not controllers/views
|
|
|
|
(artanis utils))
|
|
;; Put whatever you want to be called before server initilization here
|
|
|
|
(init-server #:statics '(png gif jpg jpeg ico html js json csv xml css woff woff2 ttf))
|
|
(add-to-load-path (string-append (current-toplevel) "/lib"))
|
|
;; Put whatever you want to be called before server running here
|
|
|
|
(get "/" (lambda (rc) (redirect-to rc "/index.html")))
|