As sheepluva pointed out, allowing this message to be legal allows naughtiness. The server usage of this message does not seem to use this check.
{-# LANGUAGE OverloadedStrings #-}
module Consts where
import qualified Data.ByteString.Char8 as B
serverVersion :: B.ByteString
serverVersion = "0"