relational-query-HDBC 0.3.0.0 → 0.3.1.0
raw patch · 2 files changed
+9/−2 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Database.HDBC.Record.Persistable: instance Database.Record.FromSql.FromSql Database.HDBC.SqlValue.SqlValue GHC.Int.Int8
+ Database.HDBC.Record.Persistable: instance Database.Record.ToSql.ToSql Database.HDBC.SqlValue.SqlValue GHC.Int.Int8
+ Database.HDBC.Record.Persistable: instance Database.Relational.Query.Scalar.ScalarDegree GHC.Int.Int8
+ Database.HDBC.SqlValueExtra: instance Data.Convertible.Base.Convertible Database.HDBC.SqlValue.SqlValue GHC.Int.Int8
+ Database.HDBC.SqlValueExtra: instance Data.Convertible.Base.Convertible GHC.Int.Int8 Database.HDBC.SqlValue.SqlValue
Files
relational-query-HDBC.cabal view
@@ -1,5 +1,5 @@ name: relational-query-HDBC-version: 0.3.0.0+version: 0.3.1.0 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.
src/Database/HDBC/SqlValueExtra.hs view
@@ -12,9 +12,10 @@ module Database.HDBC.SqlValueExtra () where import Data.Convertible (Convertible(safeConvert), ConvertResult)-import Data.Int (Int16, Int32)+import Data.Int (Int8, Int16, Int32) import Database.HDBC (SqlValue) +-- Convert from narrower width than Int32 safeConvertFromIntegral32 :: Integral a => a -> ConvertResult SqlValue safeConvertFromIntegral32 i = safeConvert (fromIntegral i :: Int32)@@ -22,6 +23,12 @@ safeConvertToIntegral32 :: Integral a => SqlValue -> ConvertResult a safeConvertToIntegral32 v = fmap fromIntegral (safeConvert v :: ConvertResult Int32)++instance Convertible Int8 SqlValue where+ safeConvert = safeConvertFromIntegral32++instance Convertible SqlValue Int8 where+ safeConvert = safeConvertToIntegral32 instance Convertible Int16 SqlValue where safeConvert = safeConvertFromIntegral32