README.md

webTools

Main.hs contains simple example that start HTTP server with web socket application that echo received packets back to the sender.

newClientHandler :: NewClientCallback DA.Value DA.Value
newClientHandler (input, output) =
  void $ async $ P.runEffect $ PC.fromInput input  >-> PC.toOutput output


main :: IO ()
main = do
  wsApp <- getWSApp newClientHandler
  httpTask <- async $ runHttpApp "sample.html" wsApp 8070

  putStrLn ("Press [Enter] to exit"::Text)
  void getLine
  cancel httpTask

To use HTTPs replace httpTask <- async $ runHttpApp "sample.html" wsApp 8070 by:

let tlsCfg=tlsSettingsChain "cert1.pem" ["chain1.pem"] "privkey1.pem"
httpTask <- async $ runTlsApp  "static/sample.html" tlsCfg wsApp 443

In both cases the default page is passed as parameter ("sample.html"). HTTP server also server static pages from ./static directory

To test WebSocket, elm demo client can be used at: http://elm-lang.org/examples/websockets Just send URL to address of your server (ws://localhost:8070, for example above). Please note that to get it working request should be entered as valid JSON. For example: {"array":[1,2,3],"element":"value"}

To server other HTTP(s) requests (for example REST) in addition to static pages use the following methods:

runTlsExApp :: String -> Scotty.ScottyM () -> TLSSettings -> WS.ServerApp->Int->IO ()
runTlsExApp  defPage webApps theTlsSettings wsApp port = do

runHttpExApp :: String -> Scotty.ScottyM () -> WS.ServerApp->Int->IO ()
runHttpExApp  defPage webApps wsApp port = do

Both functions allow accept ScottyM as extra parameter

To redirect all incoming requests on specific port use:

runRedirect :: Int -> String -> IO (Maybe ())
runRedirect port toURL