purescript-httpurple/docs/Examples/MultiRoute/Main.purs

module Examples.MultiRoute.Main where

import Prelude

import Effect.Console (log)
import HTTPure (Request, ResponseM, ServerM, notFound, ok, serve)

-- | Specify the routes
router :: Request -> ResponseM
router { path: [ "hello" ] } = ok "hello"
router { path: [ "goodbye" ] } = ok "goodbye"
router _ = notFound

-- | Boot up the server
main :: ServerM
main =
  serve 8080 router do
    log " ┌────────────────────────────────┐"
    log " │ Server now up on port 8080     │"
    log " │                                │"
    log " │ To test, run:                  │"
    log " │  > curl localhost:8080/hello   │"
    log " │    # => hello                  │"
    log " │  > curl localhost:8080/goodbye │"
    log " │    # => goodbye                │"
    log " └────────────────────────────────┘"