selda-sqlite 0.1.2.2 → 0.1.3.0

raw patch · 2 files changed

+11/−11 lines, 2 filesdep ~selda

Dependency ranges changed: selda

Files

• selda-sqlite.cabal +2/−2
• src/Database/Selda/SQLite.hs +9/−9

@@ -1,5 +1,5 @@ name:                selda-sqlite-version:             0.1.2.2+version:             0.1.3.0 synopsis:            SQLite backend for the Selda database EDSL. description:         SQLite backend for the Selda database EDSL. homepage:            https://github.com/valderman/selda@@ -24,7 +24,7 @@   build-depends:       base          >=4.8     && <5     , exceptions    >=0.8     && <0.9-    , selda         >=0.1.4.1 && <0.2+    , selda         >=0.1.5.0 && <0.2     , text          >=1.0     && <1.3   if !flag(haste)     build-depends:

@@ -67,15 +67,15 @@           return $ reverse acc  toSqlData :: Lit a -> SQLData-toSqlData (LitI i)    = SQLInteger $ fromIntegral i-toSqlData (LitD d)    = SQLFloat d-toSqlData (LitS s)    = SQLText s-toSqlData (LitTS s)   = SQLText s-toSqlData (LitDate s) = SQLText s-toSqlData (LitTime s) = SQLText s-toSqlData (LitB b)    = SQLInteger $ if b then 1 else 0-toSqlData (LitNull)   = SQLNull-toSqlData (LitJust x) = toSqlData x+toSqlData (LInt i)      = SQLInteger $ fromIntegral i+toSqlData (LDouble d)   = SQLFloat d+toSqlData (LText s)     = SQLText s+toSqlData (LDateTime s) = SQLText s+toSqlData (LDate s)     = SQLText s+toSqlData (LTime s)     = SQLText s+toSqlData (LBool b)     = SQLInteger $ if b then 1 else 0+toSqlData (LNull)       = SQLNull+toSqlData (LJust x)     = toSqlData x  fromSqlData :: SQLData -> SqlValue fromSqlData (SQLInteger i) = SqlInt $ fromIntegral i