dsh-sql 0.2.0.1 → 0.2.0.2

raw patch · 2 files changed

+4/−4 lines, 2 filesdep ~bytestring-lexing

Dependency ranges changed: bytestring-lexing

Files

• dsh-sql.cabal +2/−2
• src/Database/DSH/Backend/Sql.hs +2/−2

@@ -1,5 +1,5 @@ Name:                dsh-sql-Version:             0.2.0.1+Version:             0.2.0.2 Synopsis:            SQL backend for Database Supported Haskell (DSH) Description:   This package provides an SQL backend for Database Supported Haskell@@ -37,7 +37,7 @@                      , algebra-sql        >= 0.3                      , base               >= 4.8 && < 5                      , bytestring         >= 0.10-                     , bytestring-lexing  >= 0.4+                     , bytestring-lexing  >= 0.5                      , containers         >= 0.5                      , either             >= 4.0                      , mtl                >= 2.1

@@ -30,7 +30,7 @@ import           Control.Monad import           Control.Monad.State import qualified Data.ByteString.Char8                    as BS-import qualified Data.ByteString.Lex.Double               as BD+import qualified Data.ByteString.Lex.Fractional           as BD import qualified Data.ByteString.Lex.Integral             as BI import           Data.Decimal import qualified Data.Map                                 as M@@ -287,7 +287,7 @@     doubleVal (SqlScalar (H.SqlInt64 d))      = doubleE $ fromIntegral d     doubleVal (SqlScalar (H.SqlWord32 d))     = doubleE $ fromIntegral d     doubleVal (SqlScalar (H.SqlWord64 d))     = doubleE $ fromIntegral d-    doubleVal (SqlScalar (H.SqlByteString c)) = doubleE $ maybe $impossible fst (BD.readDouble c)+    doubleVal (SqlScalar (H.SqlByteString c)) = doubleE $ maybe $impossible fst (BD.readDecimal c)     doubleVal (SqlScalar v)                   = error $ printf "doubleVal: %s" (show v)      boolVal (SqlScalar (H.SqlBool b))    = boolE b