mssql-simple 0.6.0.1 → 0.6.0.2
raw patch · 2 files changed
+11/−11 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
mssql-simple.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 5b1dbc750ccae76bdbfbc855bb9838d50c4bae7e9c66c2033f3ff4430dd31cd8+-- hash: 0a046467ca847fb66f304b9789fe93c53e9208d32c115d3936e2cc0d25de86fb name: mssql-simple-version: 0.6.0.1+version: 0.6.0.2 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
src/Database/MSSQLServer/Query/RpcQuerySet.hs view
@@ -269,39 +269,39 @@ numericVal name p (Right f) = RpcParamVal name (TINumericN p (decimalScale f)) (Just f) charVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)-charVal name Nothing = RpcParamVal name (TIBigChar 0xffff (Collation 0x00000000 0x00)) Nothing+charVal name Nothing = RpcParamVal name (TIBigChar 0 (Collation 0x00000000 0x00)) Nothing charVal name (Just bs) = RpcParamVal name (TIBigChar (fromIntegral $ B.length bs) (Collation 0x00000000 0x00)) (Just bs) varcharVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)-varcharVal name Nothing = RpcParamVal name (TIBigVarChar 0xffff (Collation 0x00000000 0x00)) Nothing+varcharVal name Nothing = RpcParamVal name (TIBigVarChar 0 (Collation 0x00000000 0x00)) Nothing varcharVal name (Just bs) = RpcParamVal name (TIBigVarChar (fromIntegral $ B.length bs) (Collation 0x00000000 0x00)) (Just bs) textVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)-textVal name Nothing = RpcParamVal name (TIText 0xffffffff (Collation 0x00000000 0x00)) Nothing+textVal name Nothing = RpcParamVal name (TIText 0 (Collation 0x00000000 0x00)) Nothing textVal name (Just bs) = RpcParamVal name (TIText (fromIntegral $ B.length bs) (Collation 0x00000000 0x00)) (Just bs) ncharVal :: RpcParamName -> (Maybe T.Text) -> RpcParam (Maybe T.Text)-ncharVal name Nothing = RpcParamVal name (TINChar 0xffff (Collation 0x00000000 0x00)) Nothing+ncharVal name Nothing = RpcParamVal name (TINChar 0 (Collation 0x00000000 0x00)) Nothing ncharVal name (Just ts) = RpcParamVal name (TINChar (fromIntegral $ (T.length ts) * 2) (Collation 0x00000000 0x00)) (Just ts) nvarcharVal :: RpcParamName -> (Maybe T.Text) -> RpcParam (Maybe T.Text)-nvarcharVal name Nothing = RpcParamVal name (TINVarChar 0xffff (Collation 0x00000000 0x00)) Nothing+nvarcharVal name Nothing = RpcParamVal name (TINVarChar 0 (Collation 0x00000000 0x00)) Nothing nvarcharVal name (Just ts) = RpcParamVal name (TINVarChar (fromIntegral $ (T.length ts) * 2) (Collation 0x00000000 0x00)) (Just ts) ntextVal :: RpcParamName -> (Maybe T.Text) -> RpcParam (Maybe T.Text)-ntextVal name Nothing = RpcParamVal name (TINText 0xffffffff (Collation 0x00000000 0x00)) Nothing+ntextVal name Nothing = RpcParamVal name (TINText 0 (Collation 0x00000000 0x00)) Nothing ntextVal name (Just ts) = RpcParamVal name (TINText (fromIntegral $ (T.length ts) * 2) (Collation 0x00000000 0x00)) (Just ts) binaryVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)-binaryVal name Nothing = RpcParamVal name (TIBigBinary 0xffff) Nothing+binaryVal name Nothing = RpcParamVal name (TIBigBinary 0) Nothing binaryVal name (Just bs) = RpcParamVal name (TIBigBinary (fromIntegral $ B.length bs)) (Just bs) varbinaryVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)-varbinaryVal name Nothing = RpcParamVal name (TIBigVarBinary 0xffff) Nothing+varbinaryVal name Nothing = RpcParamVal name (TIBigVarBinary 0) Nothing varbinaryVal name (Just bs) = RpcParamVal name (TIBigVarBinary (fromIntegral $ B.length bs)) (Just bs) imageVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)-imageVal name Nothing = RpcParamVal name (TIImage 0xffffffff) Nothing+imageVal name Nothing = RpcParamVal name (TIImage 0) Nothing imageVal name (Just bs) = RpcParamVal name (TIImage (fromIntegral $ B.length bs)) (Just bs)