Skip to content
Browse files

Allow execute to work when rows are returned

  • Loading branch information...
1 parent f567ae2 commit a9334c4c26054575b5b3f182b0204307737f0bc6 @snoyberg snoyberg committed Feb 26, 2013
Showing with 2 additions and 2 deletions.
  1. +1 −1 persistent-sqlite/Database/Persist/Sqlite.hs
  2. +1 −1 persistent-sqlite/persistent-sqlite.cabal
View
2 persistent-sqlite/Database/Persist/Sqlite.hs
@@ -116,7 +116,7 @@ insertSql' t cols _ =
execute' :: Sqlite.Connection -> Sqlite.Statement -> [PersistValue] -> IO Int64
execute' conn stmt vals = flip finally (liftIO $ Sqlite.reset conn stmt) $ do
Sqlite.bind stmt vals
- Sqlite.Done <- Sqlite.step stmt
+ _ <- Sqlite.step stmt
Sqlite.changes conn
withStmt'
View
2 persistent-sqlite/persistent-sqlite.cabal
@@ -1,5 +1,5 @@
name: persistent-sqlite
-version: 1.1.4
+version: 1.1.4.1
license: MIT
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>

0 comments on commit a9334c4

Please sign in to comment.
Something went wrong with that request. Please try again.