From fad3e8dbcbb2d8ed162c0ec6c55884df1b01a9f2 Mon Sep 17 00:00:00 2001 From: Orion Kindel Date: Tue, 25 Jun 2024 15:40:05 -0500 Subject: [PATCH] fix: parRE is alt --- src/Effect.Postgres.Error.RE.purs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Effect.Postgres.Error.RE.purs b/src/Effect.Postgres.Error.RE.purs index 92203db..e0549af 100644 --- a/src/Effect.Postgres.Error.RE.purs +++ b/src/Effect.Postgres.Error.RE.purs @@ -3,6 +3,7 @@ module Effect.Postgres.Error.RE where import Prelude hiding (join) import Control.Alt (class Alt) +import Control.Alternative (class Alternative, class Plus) import Control.Monad.Base (class MonadBase) import Control.Monad.Error.Class (class MonadError, class MonadThrow, catchError, liftEither, throwError) import Control.Monad.Except (ExceptT, runExceptT) @@ -52,6 +53,9 @@ derive instance Newtype (ParRE r m a) _ derive newtype instance Functor m => Functor (ParRE r m) derive newtype instance Apply m => Apply (ParRE r m) derive newtype instance Applicative m => Applicative (ParRE r m) +derive newtype instance Alt m => Alt (ParRE r m) +derive newtype instance Plus m => Plus (ParRE r m) +derive newtype instance Alternative m => Alternative (ParRE r m) derive instance Newtype (RE r m a) _ derive newtype instance Monad m => MonadAsk r (RE r m)