# HG changeset patch
# User unc0rr
# Date 1239550522 0
# Node ID 130e7805d49c90a36cf7f65b54e4f609babb09b2
# Parent  3b04393b1291e9153d010496f5555287006a1a00
Prevent server from crashing when get SqlNull value

diff -r 3b04393b1291 -r 130e7805d49c gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Sun Apr 12 15:33:59 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Sun Apr 12 15:35:22 2009 +0000
@@ -51,7 +51,7 @@
 							ClientAccountInfo (clientUID client) $
 								HasAccount
 									(fromSql $ head $ fromJust $ passAndRole)
-									((fromSql $ last $ fromJust $ passAndRole) == (3 :: Int))
+									((fromSql $ last $ fromJust $ passAndRole) == (Just (3 :: Int)))
 					else
 					writeChan coreChan $ ClientAccountInfo (clientUID client) Guest
 			`onException`