reorganize functions a bit
authorunc0rr
Wed, 12 Aug 2009 12:48:57 +0000
changeset 2305 a51f5f88f3cf
parent 2304 a6e733ad0366
child 2306 1addfe9fddb1
reorganize functions a bit
gameServer/Utils.hs
--- a/gameServer/Utils.hs	Wed Aug 12 12:44:42 2009 +0000
+++ b/gameServer/Utils.hs	Wed Aug 12 12:48:57 2009 +0000
@@ -39,9 +39,9 @@
 	where
 		decoded = fromEngineMsg msg
 		test Nothing = False
-		test (Just "") = False
 		test (Just (m:ms)) = m `Set.member` legalMessages
-		legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages
+		test _ = False
+		legalMessages = Set.fromList $ "M#+RrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages
 		slotMessages = ['\128', '\129', '\130', '\131', '\132', '\133', '\134', '\135', '\136', '\137', '\138']
 
 maybeRead :: Read a => String -> Maybe a