hsSqlite3 0.0.2 → 0.0.3

raw patch · 4 files changed

+7/−7 lines, 4 filesdep +statedep −stateLocal

Dependencies added: state

Dependencies removed: stateLocal

Files

• hsSqlite3.cabal +2/−2
• src/Database/Sqlite3.hs +1/−1
• src/Database/Sqlite3/Low.hs +2/−2
• src/hs_sqlite3_test.hs +2/−2

@@ -1,5 +1,5 @@ Name: hsSqlite3-Version: 0.0.2+Version: 0.0.3 License: LGPL Maintainer: Evgeny Jukov <masloed@gmail.com> Author: Evgeny Jukov@@ -14,7 +14,7 @@ Exposed-Modules:    Database.Sqlite3,   Database.Sqlite3.Low-Build-Depends: base, utf8-string, mtl, stateLocal+Build-Depends: base, utf8-string, mtl, state GHC-Options: -O2  Executable: hs_sqlite3_test

@@ -23,7 +23,7 @@  import Data.Monoid -import Data.StateLocal hiding (fetch)+import Data.State hiding (fetch)  import qualified Codec.Binary.UTF8.String as UTF8 

@@ -16,7 +16,7 @@ import qualified Codec.Binary.UTF8.String as UTF8 import qualified Data.ByteString as B -import Data.StateLocal hiding (getST)+import Data.State  import Data.Typeable @@ -78,7 +78,7 @@  } deriving (Show, Typeable)  instance ZeroState StateDb where- zeroST = SD+ zeroState = SD   { dbP = Nothing   , stP = Nothing } 

@@ -8,10 +8,10 @@ import Control.Monad.Trans import Control.Monad.Error import Control.Monad.State.Lazy-import Data.StateLocal+import Data.State  main = do-  x <- (`runStateT` (zeroST :: S.StateDb)) $ do+  x <- (`runStateT` (zeroState :: S.StateDb)) $ do     S.open "db"     tab :: [[Val]] <- S.fetch "SELECT * FROM test_tab"     S.bind "INSERT INTO test_tab VALUES (?,?,?)" $