equal
deleted
inserted
replaced
52 | CheckFailed B.ByteString |
52 | CheckFailed B.ByteString |
53 | CheckSuccess [B.ByteString] |
53 | CheckSuccess [B.ByteString] |
54 deriving Show |
54 deriving Show |
55 |
55 |
56 serverAddress = "netserver.hedgewars.org" |
56 serverAddress = "netserver.hedgewars.org" |
57 protocolNumber = "49" |
57 protocolNumber = "51" |
58 |
58 |
59 getLines :: Handle -> IO [B.ByteString] |
59 getLines :: Handle -> IO [B.ByteString] |
60 getLines h = g |
60 getLines h = g |
61 where |
61 where |
62 g = do |
62 g = do |