1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
--- HDBC-odbc-2.3.1.0-orig/HDBC-odbc.cabal 2011-08-10 07:16:38.000000000 +1000
+++ HDBC-odbc-2.3.1.0/HDBC-odbc.cabal 2011-08-12 14:51:43.510895477 +1000
@@ -37,10 +37,10 @@
ExistentialQuantification,
ForeignFunctionInterface,
ScopedTypeVariables
- Build-Depends: base >= 4.3.1.0 && < 5
+ Build-Depends: base >= 4.2.0.2 && < 5
, mtl
, HDBC>=2.1.0
- , time>=1.2.0.3
+ , time>=1.1.4
, utf8-string
, bytestring
GHC-Options: -O2
--- HDBC-odbc-2.3.1.0-orig/Database/HDBC/ODBC/Statement.hsc 2011-08-10 07:16:38.000000000 +1000
+++ HDBC-odbc-2.3.1.0/Database/HDBC/ODBC/Statement.hsc 2011-08-12 15:16:11.585672600 +1000
@@ -17,7 +17,7 @@
import Database.HDBC.ODBC.Utils
import Database.HDBC.ODBC.TypeConv
-import Foreign.C.String (castCUCharToChar)
+import GHC.Base (unsafeChr)
import Foreign.C.Types
import Foreign.ForeignPtr
import Foreign.Ptr
@@ -55,6 +55,10 @@
#let CALLCONV = "ccall"
#endif
+-- | Convert a C @unsigned char@, representing a Latin-1 character, to
+-- the corresponding Haskell character.
+castCUCharToChar :: CUChar -> Char
+castCUCharToChar ch = unsafeChr (fromIntegral (fromIntegral ch :: Word8))
fGetQueryInfo :: Conn -> ChildList -> String
-> IO ([SqlColDesc], [(String, SqlColDesc)])
fGetQueryInfo iconn children query =
|
GitWeb
