persistent-sqlite 0.3.0 → 0.3.0.1

raw patch · 3 files changed

+5/−6 lines, 3 files

Files

• Database/Persist/Sqlite.hs +3/−4
• Database/Sqlite.hs +1/−1
• persistent-sqlite.cabal +1/−1

@@ -18,7 +18,7 @@ import Data.List (intercalate) import Data.IORef import qualified Data.Map as Map-import Control.Monad.Invert (MonadInvertIO)+import Control.Monad.Invert (MonadInvertIO, finally)  withSqlitePool :: MonadInvertIO m                => String@@ -76,7 +76,7 @@         ]  execute' :: Sqlite.Statement -> [PersistValue] -> IO ()-execute' stmt vals = do+execute' stmt vals = flip finally (liftIO $ Sqlite.reset stmt) $ do     Sqlite.bind stmt vals     Sqlite.Done <- Sqlite.step stmt     return ()@@ -86,10 +86,9 @@           -> [PersistValue]           -> (RowPopper m -> m a)           -> m a-withStmt' stmt vals f = do+withStmt' stmt vals f = flip finally (liftIO $ Sqlite.reset stmt) $ do     liftIO $ Sqlite.bind stmt vals     x <- f go-    liftIO $ Sqlite.reset stmt     return x   where     go = liftIO $ do

@@ -216,7 +216,7 @@   error <- resetError statement   case error of     ErrorOK -> return ()-    _ -> sqlError Nothing "reset" error+    _ -> return () -- sqlError Nothing "reset" error  foreign import ccall "sqlite3_finalize"   finalizeC :: Ptr () -> IO Int

@@ -1,5 +1,5 @@ name:            persistent-sqlite-version:         0.3.0+version:         0.3.0.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>