Server.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Main where
   3 import Data.Text (Text)
   4
   5 import qualified Network.WebSockets as WS
   6
   7 main :: IO ()
   8 main = do
   9   WS.runServer "127.0.0.1" 8889 $ \pending -> do
  10     conn <- WS.acceptRequest pending
  11     WS.sendTextData conn ("Hello there" :: Text)