ms-tds 0.3.0.0 → 0.3.0.1

raw patch · 4 files changed

+7/−7 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ms-tds.cabal +2/−2
• src/Database/Tds/Message/DataStream.hs +2/−2
• src/Database/Tds/Primitives/DateTime.hs +2/−2
• src/Database/Tds/Primitives/Decimal.hs +1/−1

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: efad0660f5cf0042c8ade6a168534cd8a14bd8d00708563ceeb560d6e059d864+-- hash: e73f8134a0778c8c83faddfeb4f635f7a931c6d2d51ff8069aae2428a0390f0a  name:           ms-tds-version:        0.3.0.0+version:        0.3.0.1 synopsis:       TDS Protocol implemented in Haskell description:    Please see the README on GitHub at <https://github.com/mitsuji/ms-tds#readme> category:       Database

@@ -235,12 +235,12 @@ putTypeInfo (TIGUID) = Put.putWord8 0x24 >> Put.putWord8 16 putTypeInfo (TIDecimalN p s) = do   Put.putWord8 0x6a-  Put.putWord8 $ precisionToLen p -- [TODO] test+  Put.putWord8 $ (precisionToLen p) +1   Put.putWord8 p   Put.putWord8 s putTypeInfo (TINumericN p s) = do   Put.putWord8 0x6c-  Put.putWord8 $ precisionToLen p -- [TODO] test+  Put.putWord8 $ (precisionToLen p) +1   Put.putWord8 p   Put.putWord8 s 

@@ -36,14 +36,14 @@ utcToBytes4 :: UTCTime -> (Word16,Word16) utcToBytes4 (UTCTime date time) =   let-    wday = fromIntegral $ diffDays (fromGregorian 1900 1 1) date+    wday = fromIntegral $ diffDays date (fromGregorian 1900 1 1)     wmin = truncate $ time / 60   in (wday,wmin)  utcToBytes8 :: UTCTime -> (Int32,Word32) utcToBytes8 (UTCTime date time) =   let-    iday = fromIntegral $ diffDays (fromGregorian 1900 1 1) date+    iday = fromIntegral $ diffDays date (fromGregorian 1900 1 1)     w3hsec = truncate $ time * 300   in (iday,w3hsec) 

@@ -108,7 +108,7 @@     f 0 _ = []     f len i =       let-        (d,m) = divMod i 0xff+        (d,m) = divMod i 0x100       in (fromIntegral m) : f (len-1) d