WebSockets

Client.elm

import WebSocket as WS
 
inputs = constant ""
 
socket = WS.connect "ws://127.0.0.1" inputs
 
tests = count socket
 
main = (\a b-> asText a `above` asText b) <~ socket ~ tests

Server.hs

import qualified Network.WebSockets as WS
import Control.Monad (forever)
import Control.Concurrent (threadDelay, forkIO)
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as BSC
 
application :: WS.ServerApp
application pendingConnection = do
connection <- WS.acceptRequest pendingConnection
forever $ do
WS.sendPing connection $ BSC.pack "ping"
WS.receive connection >>= print
WS.sendTextData connection (T.pack "testing...")
threadDelay $ 10 * 1000000
 
main = WS.runServer "127.0.0.1" 80 application