packages feed

hocilib 0.0.0 → 0.1.0

raw patch · 4 files changed

+14/−6 lines, 4 files

Files

hocilib.cabal view
@@ -1,5 +1,5 @@ name:               hocilib-version:            0.0.0+version:            0.1.0 license:            BSD3 license-file:       LICENSE category:           Database, Oracle, Ocilib, FFI@@ -62,6 +62,7 @@    cc-options:       -Wall   extra-libraries:  ocilib+  extra-lib-dirs:   /usr/local/lib    build-depends: base             >= 4.8 && < 5                , containers       >= 0.5 && < 1@@ -78,6 +79,9 @@   other-modules:    default-language: Haskell2010++  extra-libraries: ocilib+  extra-lib-dirs: /usr/local/lib    build-depends: base                , bytestring
src/Database/Ocilib/Statement.hs view
@@ -54,6 +54,7 @@ import qualified Language.C.Inline as C import           Database.Ocilib.Oci import           Database.Ocilib.Enums+import           Database.Ocilib.Internal  C.context (C.baseCtx <> C.funCtx <> ociCtx) @@ -62,8 +63,8 @@ -- Executing Statements  -- | Create a statement object and return its handle.-ociStatementCreate :: Ptr OCI_Connection -> IO (Ptr OCI_Statement)-ociStatementCreate c = [C.exp| OCI_Statement* { OCI_StatementCreate($(OCI_Connection *c)) } |]+ociStatementCreate :: Ptr OCI_Connection -> IO (Maybe (Ptr OCI_Statement))+ociStatementCreate c = fmap toMaybePtr [C.exp| OCI_Statement* { OCI_StatementCreate($(OCI_Connection *c)) } |]  -- | Free a statement and all resources associated to it (resultsets ...) ociStatementFree :: Ptr OCI_Statement -> IO Bool
stack.yaml view
@@ -1,4 +1,4 @@-resolver: lts-6.12+resolver: lts-6.13 packages: - '.' extra-deps: []@@ -6,3 +6,6 @@ extra-package-dbs: [] extra-include-dirs: [] extra-lib-dirs: []+docker:+  enable: false+  repo: mystack:latest
tests/Tests.hs view
@@ -35,7 +35,7 @@     case maybeC of         Nothing -> assertFailure "failed to create connection"         Just c -> do-            st <- ociStatementCreate c+            Just st <- ociStatementCreate c             b <- ociExecuteStmt st "select * from test_fetch"             assertBool "ociExecuteStatement" b @@ -113,7 +113,7 @@     case maybeC of         Nothing -> assertFailure "unable to connect"         Just c -> do-            st <- ociStatementCreate c+            Just st <- ociStatementCreate c             ociSetBindAllocation st OCI_BAM_INTERNAL             b <- ociPrepare st "select * from test_fetch where article=(:article)"             assertBool "prepared" b