git.iko.soy/project-m36
on 62_python_dbapi help sign in
project-m36/src/lib/ProjectM36/WebSocketServer.hs
14 lines 357 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2module ProjectM36.WebSocketServer where
3import qualified Network.WebSockets as WS
4import Control.Monad
6--add json derivation to RemoteCallTypes
7runServer :: WS.Connection -> IO ()
8runServer conn = forever $ handleRequest
10handleRequest :: WS.Connection -> IO ()
11handleRequest conn = do
12 dat <- WS.receiveData conn