Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/OfficialServer/DBInteraction.hs
changeset 1970 130e7805d49c
parent 1963 58c29439225d
child 1979 912e450d4db2 
--- 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`
hedgewars