From d080bd9ca3cce2791947639292cf7144289abcdd Mon Sep 17 00:00:00 2001 From: orion kindel Date: Wed, 28 Jan 2026 10:01:13 -0600 Subject: [PATCH] test: fix test warnings --- test/Test.Control.Monad.Postgres.purs | 7 +------ test/Test.Data.Postgres.Generic.purs | 4 ---- test/Test.Main.purs | 11 +++-------- 3 files changed, 4 insertions(+), 18 deletions(-) diff --git a/test/Test.Control.Monad.Postgres.purs b/test/Test.Control.Monad.Postgres.purs index c1f4db6..310e6ac 100644 --- a/test/Test.Control.Monad.Postgres.purs +++ b/test/Test.Control.Monad.Postgres.purs @@ -2,11 +2,9 @@ module Test.Control.Monad.Postgres where import Prelude -import Control.Monad.Cont (lift) -import Control.Monad.Error.Class (catchError, throwError, try) +import Control.Monad.Error.Class (throwError, try) import Control.Monad.Fork.Class (class MonadBracket, bracket) import Control.Monad.Postgres (PostgresT, cursor, exec_, fetch, fetchAll, fetchOne, query, runPostgres, transaction) -import Control.Monad.Reader (ask) import Control.Parallel (parTraverse) import Data.Array as Array import Data.Array.NonEmpty as Array.NonEmpty @@ -18,12 +16,9 @@ import Data.Tuple.Nested ((/\)) import Effect.Aff (Fiber) import Effect.Aff.Class (class MonadAff, liftAff) import Effect.Aff.Unlift (UnliftAff(..), askUnliftAff) -import Effect.Class (liftEffect) -import Effect.Console (log) import Effect.Exception (Error, error) import Effect.Postgres.Error as E import Effect.Postgres.Error.Except as X -import Effect.Postgres.Error.RE as RE import Partial.Unsafe (unsafePartial) import Test.Common (re, withConfig) import Test.Spec (Spec, around, describe, it) diff --git a/test/Test.Data.Postgres.Generic.purs b/test/Test.Data.Postgres.Generic.purs index 11cc6c1..8909d50 100644 --- a/test/Test.Data.Postgres.Generic.purs +++ b/test/Test.Data.Postgres.Generic.purs @@ -2,10 +2,6 @@ module Test.Data.Postgres.Custom where import Prelude -import Control.Monad.Error.Class (liftEither) -import Control.Monad.Except (runExceptT) -import Data.Bifunctor (lmap) -import Data.DateTime (DateTime(..)) import Data.Generic.Rep (class Generic) import Data.Maybe (Maybe(..)) import Data.Newtype (unwrap) diff --git a/test/Test.Main.purs b/test/Test.Main.purs index fdb8ad9..4fa8065 100644 --- a/test/Test.Main.purs +++ b/test/Test.Main.purs @@ -2,23 +2,18 @@ module Test.Main where import Prelude -import Control.Alternative (guard) import Control.Monad.Rec.Class (untilJust) -import Data.Either (Either(..), hush) +import Data.Either (Either(..)) import Data.Filterable (filter) -import Data.Maybe (Maybe(..), isNothing, maybe) +import Data.Maybe (Maybe(..), isNothing) import Data.Newtype (wrap) -import Data.String as String -import Effect (Effect, untilE) +import Effect (Effect) import Effect.Aff (Aff, bracket, delay, launchAff_, makeAff) import Effect.Class (liftEffect) import Effect.Console (log) -import Node.Buffer as Buffer import Node.ChildProcess (ChildProcess) import Node.ChildProcess as ChildProcess -import Node.ChildProcess.Aff as ChildProcess.Aff import Node.ChildProcess.Types (Exit(..), stringSignal) -import Node.Encoding (Encoding(..)) import Node.EventEmitter as Event import Test.Control.Monad.Postgres as Test.Control.Monad.Postgres import Test.Data.Postgres as Test.Data.Postgres