diff options
| author | krasimir <krasimir@chalmers.se> | 2017-04-12 11:55:27 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2017-04-12 11:55:27 +0000 |
| commit | e369427990e9914a9c92e9e68849d674ada2e384 (patch) | |
| tree | 797986eae7f7d37140ff16600cc0ed838814c4d3 /src/runtime/haskell-bind/SG | |
| parent | 456f0a5733a3b688ebd3f5b3db35f60400ca7abe (diff) | |
update SG.hsc
Diffstat (limited to 'src/runtime/haskell-bind/SG')
| -rw-r--r-- | src/runtime/haskell-bind/SG/FFI.hs | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/runtime/haskell-bind/SG/FFI.hs b/src/runtime/haskell-bind/SG/FFI.hs index a6dce9494..833e9aab3 100644 --- a/src/runtime/haskell-bind/SG/FFI.hs +++ b/src/runtime/haskell-bind/SG/FFI.hs @@ -10,7 +10,6 @@ import Data.Int data SgSG data SgQueryExprResult data SgTripleResult -data SgQuery data SgQueryResult type SgId = Int64 @@ -65,13 +64,17 @@ foreign import ccall "sg/sg.h sg_triple_result_fetch" foreign import ccall "sg/sg.h sg_triple_result_close" sg_triple_result_close :: Ptr SgTripleResult -> Ptr GuExn -> IO () -foreign import ccall "sg/sg.h sg_prepare_query" - sg_prepare_query :: Ptr SgSG -> CInt -> Ptr PgfExpr -> Ptr GuPool -> Ptr GuExn -> IO (Ptr SgQuery) - foreign import ccall "sg/sg.h sg_query" - sg_query :: Ptr SgSG -> Ptr SgQuery -> Ptr GuExn -> IO (Ptr SgQueryResult) + sg_query :: Ptr SgSG -> CInt -> Ptr PgfExpr -> Ptr GuExn -> IO (Ptr SgQueryResult) + +foreign import ccall "sg/sg.h sg_query_result_columns" + sg_query_result_columns :: Ptr SgQueryResult -> IO CInt +foreign import ccall "sg/sg.h sg_query_result_fetch" + sg_query_result_fetch :: Ptr SgQueryResult -> Ptr PgfExpr -> Ptr GuPool -> Ptr GuExn -> IO CInt +foreign import ccall "sg/sg.h sg_query_result_close" + sg_query_result_close :: Ptr SgQueryResult -> Ptr GuExn -> IO () type SgTriple = Ptr PgfExpr |