Okay, this is workaround over ping timeouts problem on the server. Could make server crash if recieve thread wakes up after second ping timeout event.
{-# LANGUAGE OverloadedStrings #-}
module Consts where
import qualified Data.ByteString.Char8 as B
serverVersion :: B.ByteString
serverVersion = "1"