sample code for Suave websocket

ServerSocket.fs

module ServerSocket

open Suave.Sockets
open Suave.Sockets.Control
open Suave.WebSocket
open System.Threading

let broadCast = new Event<byte[]>()
let broadCasted = broadCast.Publish

let handleWebsocketConnection (ws: WebSocket) =
    let notifyLoop = async {
      while true do
        let! msg = Async.AwaitEvent broadCasted
        let byteResponse = msg |> ByteSegment
        let! a =  ws.send Text byteResponse true
        return ()
    }

    let cts = new CancellationTokenSource()
    Async.Start(notifyLoop, cts.Token)

    fun context ->
        socket {
          let loop = ref true
          while !loop do
            let! m = ws.read()
            match m with
            | Text,data,true ->  broadCast.Trigger(data)
            | Ping,_,_ ->   ()
            | Close,_,_ ->  loop := false
            | _ -> ()
          }
let sendMessage (message:string) =
  let byteResponse = message |> System.Text.Encoding.ASCII.GetBytes
  broadCast.Trigger byteResponse

(* 
    sample use :
    ServerSocket.sendMessage "my string"
*)