diff -r 4feced261c68 -r de822cd3df3a gameServer/OfficialServer/checker.hs --- a/gameServer/OfficialServer/checker.hs Tue Jan 21 22:38:13 2014 +0100 +++ b/gameServer/OfficialServer/checker.hs Tue Jan 21 22:43:06 2014 +0100 @@ -28,7 +28,7 @@ readInt_ str = case B.readInt str of Just (i, t) | B.null t -> fromIntegral i - _ -> 0 + _ -> 0 data Message = Packet [B.ByteString] | CheckFailed B.ByteString