# 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