From 081c4c6d704c9f3f8fd89268122fe3dcbf66390b Mon Sep 17 00:00:00 2001 From: Taimoor Zaeem Date: Thu, 25 Jun 2026 12:58:20 +0500 Subject: [PATCH] test(spec): sort imports in SpecHelper.hs The imports were scattered all around. This commit sorts and group them. Signed-off-by: Taimoor Zaeem --- test/spec/SpecHelper.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/test/spec/SpecHelper.hs b/test/spec/SpecHelper.hs index 025f5391d..d663f89a5 100644 --- a/test/spec/SpecHelper.hs +++ b/test/spec/SpecHelper.hs @@ -1,43 +1,43 @@ {-# LANGUAGE TupleSections #-} module SpecHelper where -import Control.Lens ((^?)) import qualified Data.Aeson as JSON -import Data.Aeson.Lens import qualified Data.ByteString.Base64 as B64 (decodeLenient) import qualified Data.ByteString.Char8 as BS import qualified Data.ByteString.Lazy as BL import qualified Data.Map.Strict as M -import Data.Scientific (toRealFloat) import qualified Data.Set as S import qualified Jose.Jwa as JWT import qualified Jose.Jws as JWT import qualified Jose.Jwt as JWT +import Control.Lens ((^?)) import Data.Aeson ((.=)) import Data.CaseInsensitive (CI (..), original) import Data.List (lookup) import Data.List.NonEmpty (fromList) +import Data.Scientific (toRealFloat) +import Data.String (String) import Data.Time.Clock.POSIX (getPOSIXTime) import Network.Wai (Application) import Network.Wai.Test (SResponse (simpleBody, simpleHeaders, simpleStatus)) import System.IO.Unsafe (unsafePerformIO) import Text.Regex.TDFA ((=~)) - -import Network.HTTP.Types -import Test.Hspec -import Test.Hspec.Wai - -import Data.String (String) import PostgREST.Config (AppConfig (..), JSPathExp (..), LogLevel (..), OpenAPIMode (..), Verbosity (..), parseSecret) import PostgREST.SchemaCache.Identifiers (QualifiedIdentifier (..)) -import Protolude hiding (get, toS) -import Protolude.Conv (toS) + +import Data.Aeson.Lens +import Network.HTTP.Types +import Test.Hspec +import Test.Hspec.Wai + +import Protolude hiding (get, toS) +import Protolude.Conv (toS) filterAndMatchCT :: BS.ByteString -> MatchHeader filterAndMatchCT val = MatchHeader $ \headers _ ->