Some fixes 0.9.20
authorunc0rr
Tue, 31 Dec 2013 00:53:29 +0400 (2013-12-30)
branch0.9.20
changeset 9895 1f8f7ebf43f7
parent 9893 1101b2834af7
child 9897 f705dc750df2
Some fixes
gameServer/CoreTypes.hs
gameServer/OfficialServer/extdbinterface.hs
--- a/gameServer/CoreTypes.hs	Tue Dec 31 00:17:58 2013 +0400
+++ b/gameServer/CoreTypes.hs	Tue Dec 31 00:53:29 2013 +0400
@@ -253,7 +253,7 @@
         True
         "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>"
         "<font color=yellow><h3 align=center>Hedgewars 0.9.19 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>"
-        45 -- latestReleaseVersion
+        47 -- latestReleaseVersion
         41 -- earliestCompatibleVersion
         46631
         ""
--- a/gameServer/OfficialServer/extdbinterface.hs	Tue Dec 31 00:17:58 2013 +0400
+++ b/gameServer/OfficialServer/extdbinterface.hs	Tue Dec 31 00:53:29 2013 +0400
@@ -11,6 +11,7 @@
 import Database.HDBC.MySQL
 import Data.List (lookup)
 import qualified Data.ByteString.Char8 as B
+import Data.Word
 --------------------------
 import CoreTypes
 import Utils
@@ -91,7 +92,7 @@
         , SqlInt32 (readInt_ value)
         , SqlByteString fileName
         , SqlByteString location
-        , SqlInt32 p
+        , SqlInt32 $ fromIntegral p
         ] : ps bs
     ps (b:bs) = ps bs