basic server, sends echo messages back to clients. works in Chrome and FF, but not Chromium

basic_sockets.hs

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
module Main where

import Data.Text (Text)
import qualified Data.Text.IO as T

import qualified Network.WebSockets as WS


type Client = (Text, WS.Connection)

main :: IO ()
main = WS.runServer "0.0.0.0" 9160 myApp

myApp :: WS.ServerApp
myApp pending = do
  conn <- WS.acceptRequest pending
  msg :: Text <- WS.receiveData conn
  T.putStrLn "GOT A MESG"
  WS.sendTextData conn msg