diff --git a/selda-sqlite.cabal b/selda-sqlite.cabal
--- a/selda-sqlite.cabal
+++ b/selda-sqlite.cabal
@@ -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
diff --git a/src/Database/Selda/SQLite.hs b/src/Database/Selda/SQLite.hs
--- a/src/Database/Selda/SQLite.hs
+++ b/src/Database/Selda/SQLite.hs
@@ -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