mssql-simple 0.4.0.0 → 0.4.0.1

raw patch · 2 files changed

+12/−10 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• mssql-simple.cabal +2/−2
• src/Database/MSSQLServer/Query.hs +10/−8

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 7e21b82d01e699c1397575c7711a08b3f1da63a9bb3de6aa289435456f38bd0f+-- hash: fa5d1ef6133a1e7953b1b0d2bcebee5d30cc1e56cf2cfd77bf02bd73a9dcaaec  name:           mssql-simple-version:        0.4.0.0+version:        0.4.0.1 synopsis:       SQL Server client library implemented in Haskell description:    Please see the README on GitHub at <https://github.com/mitsuji/mssql-simple#readme> category:       Database

@@ -79,23 +79,25 @@   sendAll sock $ Put.runPut $ putClientMessage ps $ CMSqlBatch $ SqlBatch query   TokenStreams tss <- readMessage sock $ Get.runGetIncremental getServerMessage -  case parse resultSetParser tss of-    [] -> case filter isTSError tss of+  case filter isTSError tss of+    [] -> case parse resultSetParser tss of       [] -> error "sql: failed to parse token streams"-      TSError info :_ -> throwIO $ QueryError info-    (x,_):_ -> return x+      (x,_):_ -> return x+    TSError info :_ -> throwIO $ QueryError info  + rpc :: (RpcQuerySet a, RpcResponseSet b) => Connection -> a -> IO b rpc (Connection sock ps) queries = do   sendAll sock $ Put.runPut $ putClientMessage ps $ CMRpcRequest $ toRpcRequest queries   TokenStreams tss <- readMessage sock $ Get.runGetIncremental getServerMessage -  case parse rpcResponseSetParser tss of-    [] -> case filter isTSError tss of+  case filter isTSError tss of+    [] -> case parse rpcResponseSetParser tss of       [] -> error "rpc: failed to parse token streams"-      TSError info :_ -> throwIO $ QueryError info-    (x,_):_ -> return x+      (x,_):_ -> return x+    TSError info :_ -> throwIO $ QueryError info+   nvarcharVal :: RpcParamName -> T.Text -> RpcParam T.Text