relational-query-HDBC 0.6.4.2 → 0.6.4.3

raw patch · 5 files changed

+18/−13 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• ChangeLog.md +5/−0
• relational-query-HDBC.cabal +1/−1
• src/Database/HDBC/Record/Insert.hs +4/−4
• src/Database/HDBC/Record/KeyUpdate.hs +2/−2
• src/Database/HDBC/Record/Statement.hs +6/−6

@@ -1,5 +1,10 @@ <!-- -*- Markdown -*- --> +## 0.6.4.3++- evaluate thunks in the result list of chunksInsert call.+- enable the is-disabled warning message of executeNoFetch.+ ## 0.6.4.2  - add an upper bound of version constraint.

@@ -1,5 +1,5 @@ name:                relational-query-HDBC-version:             0.6.4.2+version:             0.6.4.3 synopsis:            HDBC instance of relational-query and typed query interface for HDBC description:         This package contains the HDBC instance of relational-query and                      the typed query interface for HDBC.

@@ -2,7 +2,7 @@  -- | -- Module      : Database.HDBC.Record.Insert--- Copyright   : 2013 Kei Hibino+-- Copyright   : 2013-2018 Kei Hibino -- License     : BSD3 -- -- Maintainer  : ex8k.hibino@gmail.com@@ -26,7 +26,7 @@  import Database.HDBC.Record.Statement   (prepareNoFetch, withPrepareNoFetch, withUnsafePrepare, PreparedStatement, untypePrepared,-   BoundStatement (..), runPreparedNoFetch, runNoFetch, mapNoFetch, executeNoFetch)+   BoundStatement (..), runPreparedNoFetch, runNoFetch, mapNoFetch, executeBoundNoFetch)   -- | Typed prepared insert type.@@ -105,8 +105,8 @@     mapM insert $ chunks size rs   where     insert (Right c) = do-      rv <- executeNoFetch $ chunkBind iChunk c-      return [rv]+      rv <- executeBoundNoFetch $ chunkBind iChunk c+      rv `seq` return [rv]     insert (Left  c) =       mapM (runPreparedInsert ins) c 

@@ -31,7 +31,7 @@ import Database.Record (ToSql)  import Database.HDBC.Record.Statement-  (BoundStatement (BoundStatement, bound, params), executeNoFetch)+  (BoundStatement (BoundStatement, bound, params), executeBoundNoFetch)   -- | Typed prepared key-update type.@@ -87,7 +87,7 @@                      => PreparedKeyUpdate p a                      -> a                      -> IO Integer-runPreparedKeyUpdate pre = executeNoFetch . bindKeyUpdate pre+runPreparedKeyUpdate pre = executeBoundNoFetch . bindKeyUpdate pre  -- | Prepare insert statement, bind parameters, --   execute statement and get execution result.

@@ -2,7 +2,7 @@  -- | -- Module      : Database.HDBC.Record.Statement--- Copyright   : 2013-2017 Kei Hibino+-- Copyright   : 2013-2018 Kei Hibino -- License     : BSD3 -- -- Maintainer  : ex8k.hibino@gmail.com@@ -47,7 +47,7 @@   BoundStatement   {     -- | Untyped prepared statement before executed.-    bound  :: Statement+    bound  :: !Statement     -- | Bound parameters.   , params :: [SqlValue]   }@@ -56,9 +56,9 @@ data ExecutedStatement a =   ExecutedStatement   { -- | Untyped executed statement.-    executed :: Statement+    executed :: !Statement     -- | Result of HDBC execute.-  , result   :: Integer+  , result   :: !Integer   }  -- | Unsafely untype prepared statement.@@ -123,7 +123,7 @@ executeBound bs = do   let stmt = bound bs   n <- HDBC.execute stmt (params bs)-  return $ ExecutedStatement stmt n+  n `seq` return (ExecutedStatement stmt n)  {-# WARNING execute "Use 'executeBound' instead of this. This name will be used for executePrepared function in future release." #-} -- | Use 'executeBound' instead of this.@@ -139,7 +139,7 @@ executeBoundNoFetch :: BoundStatement () -> IO Integer executeBoundNoFetch = fmap result . executeBound -{- WARNING executeNoFetch "Use 'executeBoundNoFetch' instead of this. This name will be used for runPreparedNoFetch function in future release." -}+{-# WARNING executeNoFetch "Use 'executeBoundNoFetch' instead of this. This name will be used for runPreparedNoFetch function in future release." #-} -- | Use 'executeBoundNoFetch' instead of this. --   WARNING! This name will be used for runPreparedNoFetch function in future release. executeNoFetch :: BoundStatement () -> IO Integer