[fix] add proper MonadFail instance

morphismtech · Oct 30, 2023 · 11f8f6a · 11f8f6a
1 parent ae4a238
commit 11f8f6a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/squeal-postgresql/src/Squeal/PostgreSQL/Session.hs b/squeal-postgresql/src/Squeal/PostgreSQL/Session.hs
@@ -214,9 +214,9 @@ instance (Monad m, db0 ~ db1)
   return = pure
   (>>=) = flip pqBind
 
-instance (Monad m, db0 ~ db1)
+instance (MonadFail m, db0 ~ db1)
   => Fail.MonadFail (PQ db0 db1 m) where
-  fail = Fail.fail
+  fail = lift . Fail.fail
 
 instance db0 ~ db1 => MFunctor (PQ db0 db1) where
   hoist f (PQ pq) = PQ (f . pq)