Catch all exceptions in clientSendLoop. If there could something besides IOException be thrown there, that would explain ping timeouts server issue.
{-# LANGUAGE OverloadedStrings #-}
module Consts where
import qualified Data.ByteString.Char8 as B
serverVersion :: B.ByteString
serverVersion = "1"