summaryrefslogtreecommitdiff
path: root/src/Database/PostgreSQL/Query/Entity/Functions.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Database/PostgreSQL/Query/Entity/Functions.hs')
-rw-r--r--src/Database/PostgreSQL/Query/Entity/Functions.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Database/PostgreSQL/Query/Entity/Functions.hs b/src/Database/PostgreSQL/Query/Entity/Functions.hs
index 6109d8c..108a1c9 100644
--- a/src/Database/PostgreSQL/Query/Entity/Functions.hs
+++ b/src/Database/PostgreSQL/Query/Entity/Functions.hs
@@ -27,6 +27,7 @@ import Database.PostgreSQL.Simple
import Database.PostgreSQL.Simple.FromField
import Database.PostgreSQL.Simple.ToField
+import qualified Control.Monad.Fail as F
import qualified Data.List as L
import qualified Data.List.NonEmpty as NL
@@ -35,7 +36,7 @@ import qualified Data.List.NonEmpty as NL
pgInsertEntity
:: forall a m
. ( MonadPostgres m, MonadLogger m, Entity a
- , ToRow a, FromField (EntityId a) )
+ , ToRow a, FromField (EntityId a), F.MonadFail m )
=> a
-> m (EntityId a)
pgInsertEntity a = do