mirror of
https://github.com/NixOS/nixpkgs.git
synced 2024-12-25 03:17:13 +00:00
22 lines
1 KiB
Diff
22 lines
1 KiB
Diff
|
diff --git a/Database/Beam/Sqlite/Connection.hs b/Database/Beam/Sqlite/Connection.hs
|
||
|
|
index f034b272..4e459ea3 100644
|
||
|
|
--- a/Database/Beam/Sqlite/Connection.hs
|
||
|
|
+++ b/Database/Beam/Sqlite/Connection.hs
|
||
|
|
@@ -37,6 +37,7 @@ import Database.SQLite.Simple.Types (Null)
|
||
|
|
|
||
|
|
import Control.Exception (bracket_, onException, mask)
|
||
|
|
import Control.Monad (forM_, replicateM_)
|
||
|
|
+import Control.Monad.Fail (MonadFail)
|
||
|
|
import Control.Monad.Free.Church
|
||
|
|
import Control.Monad.IO.Class (MonadIO(..))
|
||
|
|
import Control.Monad.Identity (Identity)
|
||
|
|
@@ -143,7 +144,7 @@ newtype SqliteM a
|
||
|
|
{ runSqliteM :: ReaderT (String -> IO (), Connection) IO a
|
||
|
|
-- ^ Run an IO action with access to a SQLite connection and a debug logging
|
||
|
|
-- function, called or each query submitted on the connection.
|
||
|
|
- } deriving (Monad, Functor, Applicative, MonadIO)
|
||
|
|
+ } deriving (Monad, Functor, Applicative, MonadIO, MonadFail)
|
||
|
|
|
||
|
|
newtype BeamSqliteParams = BeamSqliteParams [SQLData]
|
||
|
|
instance ToRow BeamSqliteParams where
|