gameServer/Consts.hs
author unc0rr
Sat, 30 Nov 2013 17:43:58 +0400
changeset 9729 6a3640c4f4b7
parent 9702 27006953d901
child 10076 b235e520ea21
permissions -rw-r--r--
Show "incompatible version" message instead of "no such room" on try to join room with another protocol version
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4973
53411a26df7e Add server version (which is separate from protocol version) and a check in frontend for a new enough server (currently only qWarning)
unc0rr
parents:
diff changeset
     1
{-# LANGUAGE OverloadedStrings #-}
53411a26df7e Add server version (which is separate from protocol version) and a check in frontend for a new enough server (currently only qWarning)
unc0rr
parents:
diff changeset
     2
module Consts where
53411a26df7e Add server version (which is separate from protocol version) and a check in frontend for a new enough server (currently only qWarning)
unc0rr
parents:
diff changeset
     3
53411a26df7e Add server version (which is separate from protocol version) and a check in frontend for a new enough server (currently only qWarning)
unc0rr
parents:
diff changeset
     4
import qualified Data.ByteString.Char8 as B
53411a26df7e Add server version (which is separate from protocol version) and a check in frontend for a new enough server (currently only qWarning)
unc0rr
parents:
diff changeset
     5
53411a26df7e Add server version (which is separate from protocol version) and a check in frontend for a new enough server (currently only qWarning)
unc0rr
parents:
diff changeset
     6
serverVersion :: B.ByteString
9702
27006953d901 - Column for script in rooms list
unc0rr
parents: 6737
diff changeset
     7
serverVersion = "2"