WIP: backend auth/chores/households work and frontend styling
This commit is contained in:
+4
-5
@@ -1,6 +1,6 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
{- | Entry point for the Sis chore tracker server.
|
||||
{- | Entry point for the Sis server.
|
||||
|
||||
Starts a Warp HTTP server, serves the JSON API and the SPA frontend.
|
||||
-}
|
||||
@@ -55,21 +55,20 @@ main = do
|
||||
<> Opt.progDesc "Sis — shared household chore tracker"
|
||||
<> Opt.header "sis-server"
|
||||
|
||||
_db <- Database.openDatabase (optDbPath opts)
|
||||
db <- Database.openDatabase (optDbPath opts)
|
||||
|
||||
-- Install a SIGTERM handler so Docker stop works cleanly.
|
||||
_ <-
|
||||
Signals.installHandler
|
||||
Signals.sigTERM
|
||||
(Signals.Catch (putStrLn "[sis] shutting down"))
|
||||
Nothing
|
||||
|
||||
let waiApp = Sis.app (optStaticDir opts)
|
||||
let waiApp = Sis.app (optStaticDir opts) db
|
||||
|
||||
let settings =
|
||||
Warp.setPort (optPort opts) $
|
||||
Warp.setBeforeMainLoop
|
||||
(putStrLn $ "[sis] listening on port " ++ show (optPort opts))
|
||||
(putStrLn $ "[sis] listening on 0.0.0.0:" ++ show (optPort opts))
|
||||
Warp.defaultSettings
|
||||
|
||||
Warp.runSettings settings waiApp
|
||||
|
||||
Reference in New Issue
Block a user