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