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

49 lines
1.5 KiB
Haskell
Raw Normal View History

2017-10-26 21:19:30 +00:00
module Examples.SSL.Main where
2017-07-23 19:17:02 +00:00
import Prelude
2022-05-22 11:30:14 +00:00
import Data.Generic.Rep (class Generic)
import Data.Maybe (Maybe(..))
import Effect.Console (log)
import HTTPurple (Request, ResponseM, ServerM, ok, serve)
2022-05-22 11:30:14 +00:00
import Routing.Duplex (RouteDuplex')
import Routing.Duplex as RD
import Routing.Duplex.Generic as G
import Routing.Duplex.Generic as RG
data Route = Test
derive instance Generic Route _
route :: RouteDuplex' Route
route = RD.root $ G.sum
{ "Test": RG.noArgs
}
2017-07-23 19:17:02 +00:00
-- | The path to the certificate file
cert :: String
cert = "./docs/Examples/SSL/Certificate.cer"
-- | The path to the key file
key :: String
key = "./docs/Examples/SSL/Key.key"
-- | Say 'hello world!' when run
2022-05-22 11:30:14 +00:00
sayHello :: Request Route -> ResponseM
sayHello _ = ok "hello world!"
2017-07-23 19:17:02 +00:00
-- | Boot up the server
main :: ServerM
main =
serve { port: 8080, certFile: cert, keyFile: key, onStarted } { route, router: sayHello }
where
onStarted =
do
log " ┌───────────────────────────────────────────┐"
log " │ Server now up on port 8080 │"
log " │ │"
log " │ To test, run: │"
log " │ > curl --insecure https://localhost:8080 │"
log " │ # => hello world! │"
log " └───────────────────────────────────────────┘"