Httpsで通信。defaultSettings だと Port は 3000。

Http.hs

{-# LANGUAGE OverloadedStrings #-}
module Https where

import Network.Wai
import Network.Wai.Handler.Warp
import Network.HTTP.Types                                                                                                                                            
import Network.Wai.Handler.WarpTLS

server :: Application
server _ = return $ ResponseFile status200 [] "index.html" Nothing

main :: IO ()
main = runTLS (TLSSettings "server.crt" "server.key") defaultSettings server
--main = run 8080 server