# HG changeset patch
# User unc0rr
# Date 1388436809 -14400
# Node ID 6e09ca662fa32a5d2c6365d7f45819d8f9e62f46
# Parent 8efe8d4deba9497cb142f1e16871d0a73a917746
Some fixes
diff -r 8efe8d4deba9 -r 6e09ca662fa3 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
"
http://www.hedgewars.org/
"
"Hedgewars 0.9.19 is out! Please update.
Download page here
"
- 45 -- latestReleaseVersion
+ 47 -- latestReleaseVersion
41 -- earliestCompatibleVersion
46631
""
diff -r 8efe8d4deba9 -r 6e09ca662fa3 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