Make settings optional

- Add default onStarted and closingHandler
- Use justifill to easily add options
- Remove multiple serve options
This commit is contained in:
sigma-andex
2022-05-22 17:36:08 +01:00
parent c16eb2bdcc
commit 345675d5bd
17 changed files with 177 additions and 127 deletions

View File

@@ -42,7 +42,9 @@ sayHello _ = do
-- | Boot up the server
main :: ServerM
main =
serve 8080 { route, router: readerMiddleware sayHello, notFoundHandler: Nothing } do
serve { port: 8080, onStarted } { route, router: readerMiddleware sayHello }
where
onStarted = do
log " ┌───────────────────────────────────────┐"
log " │ Server now up on port 8080 │"
log " │ │"