selda-sqlite 0.1.2.0 → 0.1.2.1

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

• selda-sqlite.cabal +1/−1
• src/Database/Selda/SQLite.hs +3/−1

@@ -1,5 +1,5 @@ name:                selda-sqlite-version:             0.1.2.0+version:             0.1.2.1 synopsis:            SQLite backend for the Selda database EDSL. description:         SQLite backend for the Selda database EDSL. homepage:            https://github.com/valderman/selda

@@ -23,7 +23,9 @@     Left e@(SQLError{}) -> do       throwM (DbError (show e))     Right db -> do-      runSeldaT m (sqliteBackend lock db) `finally` liftIO (close db)+      let backend = sqliteBackend lock db+      liftIO $ runStmt backend "PRAGMA foreign_keys = ON;" []+      runSeldaT m backend `finally` liftIO (close db)  sqliteBackend :: MVar () -> Database -> SeldaBackend sqliteBackend lock db = SeldaBackend