gameServer/OfficialServer/checker.hs
changeset 13677 8bd973ab9c9c
parent 12845 ad2d448bbcab
equal deleted inserted replaced
13676:7a31a292fa84 13677:8bd973ab9c9c
    53              | CheckFailed B.ByteString
    53              | CheckFailed B.ByteString
    54              | CheckSuccess [B.ByteString]
    54              | CheckSuccess [B.ByteString]
    55     deriving Show
    55     deriving Show
    56 
    56 
    57 serverAddress = "netserver.hedgewars.org"
    57 serverAddress = "netserver.hedgewars.org"
    58 protocolNumber = "53"
    58 protocolNumber = "55"
    59 
    59 
    60 getLines :: Handle -> IO [B.ByteString]
    60 getLines :: Handle -> IO [B.ByteString]
    61 getLines h = g
    61 getLines h = g
    62     where
    62     where
    63         g = do
    63         g = do