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.5.0
+version:             0.1.5.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
@@ -16,6 +16,9 @@
 --   explicitly closed using 'seldaClose' when no longer needed.
 sqliteOpen :: (MonadIO m, MonadCatch m) => FilePath -> m SeldaConnection
 sqliteOpen file = do
+#ifdef __HASTE__
+  error "sqliteOpen called in JS context"
+#else
   edb <- try $ liftIO $ open (pack file)
   case edb of
     Left e@(SQLError{}) -> do
@@ -25,6 +28,7 @@
       let backend = sqliteBackend db
       liftIO $ runStmt backend "PRAGMA foreign_keys = ON;" []
       newConnection backend absFile
+#endif
 
 -- | Perform the given computation over an SQLite database.
 --   The database is guaranteed to be closed when the computation terminates.