# HG changeset patch
# User unc0rr
# Date 1388436809 -14400
# Node ID 1f8f7ebf43f73f3cadb68eeed9d8b28b4d3ac659
# Parent  1101b2834af7a1663c7f2877d5f2511ea02e6649
Some fixes

diff -r 1101b2834af7 -r 1f8f7ebf43f7 gameServer/CoreTypes.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
         ""
diff -r 1101b2834af7 -r 1f8f7ebf43f7 gameServer/OfficialServer/extdbinterface.hs
--- 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