27 lines
752 B
Forth
27 lines
752 B
Forth
namespace DredgePos
|
|
|
|
open DredgePos
|
|
open Saturn
|
|
open Giraffe
|
|
|
|
module Program =
|
|
let router = router {
|
|
pipe_through Ajax.Router.pipeline
|
|
not_found_handler (setStatusCode 404 >=> text "404")
|
|
get "/" (redirectTo true "/login")
|
|
forward "/ajax" Ajax.Router.router
|
|
forward "/floorplan" DredgePos.Floorplan.Router.router
|
|
forward "/order" DredgePos.OrderScreen.Router.router
|
|
forward "/login" DredgePos.Authenticate.Router.router
|
|
forward "/reservations" DredgePos.Reservations.Router.router
|
|
}
|
|
|
|
let app = application {
|
|
use_mime_types [(".woff", "application/font-woff")]
|
|
use_static "wwwroot"
|
|
use_router router
|
|
url "http://0.0.0.0:5001"
|
|
}
|
|
|
|
run app
|