equal
deleted
inserted
replaced
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 |