gameServer/OfficialServer/extdbinterface.hs
changeset 9884 6e09ca662fa3
parent 9868 53d1b92db6ce
child 10017 de822cd3df3a
--- 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