Use 'undefined' less (replace with default values and 'error')
authorunc0rr
Sat, 05 Mar 2011 22:23:14 +0300
changeset 4987 cf9470964dba
parent 4986 33fe91b2bcbf
child 4988 bd540ba66599
Use 'undefined' less (replace with default values and 'error')
gameServer/CoreTypes.hs
gameServer/NetRoutines.hs
--- a/gameServer/CoreTypes.hs	Sat Mar 05 22:16:29 2011 +0300
+++ b/gameServer/CoreTypes.hs	Sat Mar 05 22:23:14 2011 +0300
@@ -96,7 +96,7 @@
 newRoom :: RoomInfo
 newRoom =
     RoomInfo
-        undefined
+        (error "No room master defined")
         ""
         ""
         0
--- a/gameServer/NetRoutines.hs	Sat Mar 05 22:16:29 2011 +0300
+++ b/gameServer/NetRoutines.hs	Sat Mar 05 22:23:14 2011 +0300
@@ -44,7 +44,7 @@
                     False
                     False
                     Nothing
-                    undefined
+                    0
                     )
 
         writeChan chan $ Accept newClient