More quickstart cleanup (#27)
This commit is contained in:
parent
b5f29a2f7a
commit
1abd77456f
@ -33,7 +33,7 @@ import Data.StrMap as StrMap
|
|||||||
import HTTPure as HTTPure
|
import HTTPure as HTTPure
|
||||||
|
|
||||||
main :: HTTPure.ServerM (console :: Console.CONSOLE)
|
main :: HTTPure.ServerM (console :: Console.CONSOLE)
|
||||||
main = do
|
main =
|
||||||
HTTPure.serve 8080 router $ Console.log "Server now up on port 8080"
|
HTTPure.serve 8080 router $ Console.log "Server now up on port 8080"
|
||||||
where
|
where
|
||||||
router _ = pure $ HTTPure.OK StrMap.empty "hello world!"
|
router _ = pure $ HTTPure.OK StrMap.empty "hello world!"
|
||||||
|
Loading…
Reference in New Issue
Block a user