More quickstart cleanup (#27)

This commit is contained in:
Connor Prussin 2017-07-13 23:49:01 -07:00 committed by GitHub
parent b5f29a2f7a
commit 1abd77456f

View File

@ -33,7 +33,7 @@ import Data.StrMap as StrMap
import HTTPure as HTTPure
main :: HTTPure.ServerM (console :: Console.CONSOLE)
main = do
main =
HTTPure.serve 8080 router $ Console.log "Server now up on port 8080"
where
router _ = pure $ HTTPure.OK StrMap.empty "hello world!"