tfausak

-- base ==4.7.0.1
-- bytestring ==0.10.4.0
-- connection ==0.2.4
-- network ==2.4.2.3
-- text ==1.1.0.0
-- websockets ==0.9.3.1

import Control.Concurrent (forkIO)
import Control.Monad (forever, void)
import qualified Data.ByteString as BS