blob: 3567d6b2eedec9aac3fa88fac9399253dc94cb18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(ns dummy-auth.core
(:require [org.httpkit.server :as http-server]
[dummy-auth.config :as dconfig]
[dummy-auth.routes :as droutes])
(:gen-class))
(defn -main [& args]
(let [config (dconfig/read-config (or (first args) "./config.json"))
port (:port config)]
(println (str "Starting http server on port " port "..."))
(http-server/run-server droutes/ring-handler {:port port})))
|
