fix: unused constraint

This commit is contained in:
orion 2024-06-25 14:36:01 -05:00
parent 341971d3f3
commit cd01d280f4
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -6,11 +6,10 @@ import Control.Monad.Cont (lift)
import Control.Monad.Error.Class (class MonadError, class MonadThrow, catchError, throwError) import Control.Monad.Error.Class (class MonadError, class MonadThrow, catchError, throwError)
import Control.Monad.Morph (hoist) import Control.Monad.Morph (hoist)
import Control.Monad.Postgres (PostgresT) import Control.Monad.Postgres (PostgresT)
import Control.Monad.Reader (class MonadAsk, ask) import Control.Monad.Reader (ask)
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Effect.Aff.Class (class MonadAff, liftAff) import Effect.Aff.Class (class MonadAff, liftAff)
import Effect.Aff.Postgres.Client as Client import Effect.Aff.Postgres.Client as Client
import Effect.Aff.Postgres.Pool (Pool)
import Effect.Aff.Postgres.Pool as Pool import Effect.Aff.Postgres.Pool as Pool
import Effect.Class (liftEffect) import Effect.Class (liftEffect)
import Effect.Exception (Error) import Effect.Exception (Error)
@ -26,7 +25,6 @@ stdin
:: forall m :: forall m
. MonadAff m . MonadAff m
=> MonadError Error m => MonadError Error m
=> MonadAsk Pool m
=> String => String
-> Consumer (Maybe Buffer) (PostgresT m) Unit -> Consumer (Maybe Buffer) (PostgresT m) Unit
stdin q = do stdin q = do