1- {-# LANGUAGE LambdaCase #-}
1+ {-# LANGUAGE ImportQualifiedPost #-}
22{-# LANGUAGE NumericUnderscores #-}
33{-# LANGUAGE OverloadedStrings #-}
44{-# LANGUAGE ScopedTypeVariables #-}
@@ -15,36 +15,26 @@ module Chainweb.Test.Utils.APIValidation
1515) where
1616
1717import Control.Exception (Exception , evaluate )
18+ import Chainweb.Utils
19+ import Chainweb.Version
1820import Control.Monad
19-
20- import qualified Data.ByteString.Char8 as B8
21- import qualified Data.ByteString.Lazy as BL
21+ import Data.ByteString.Char8 qualified as B8
22+ import Data.ByteString.Lazy qualified as BL
2223import Data.Foldable
23- import qualified Data.HashSet as HashSet
24+ import Data.HashSet qualified as HashSet
2425import Data.IORef
25- import qualified Data.Map as Map
26- import qualified Data.Text.Encoding as T
27- import Data.Typeable
28- import qualified Data.Yaml as Yaml
29-
26+ import Data.Map qualified as Map
27+ import Data.Text.Encoding qualified as T
28+ import Data.Yaml qualified as Yaml
3029import GHC.Stack
31-
32- import qualified Network.HTTP.Client as HTTP
30+ import Network.HTTP.Client qualified as HTTP
3331import Network.HTTP.Types
34- import qualified Network.Wai as W
32+ import Network.Wai qualified as W
3533import Network.Wai.Middleware.OpenApi (OpenApi )
36- import qualified Network.Wai.Middleware.Validation as WV
37-
34+ import Network.Wai.Middleware.Validation qualified as WV
3835import System.IO.Unsafe (unsafePerformIO )
39-
4036import Text.Show.Pretty
4137
42- -- internal modules
43-
44- import Chainweb.ChainId
45- import Chainweb.Utils
46- import Chainweb.Version
47-
4838-- -------------------------------------------------------------------------- --
4939-- Validation Exception
5040
@@ -53,7 +43,7 @@ data ValidationException = ValidationException
5343 , vResp :: (ResponseHeaders , Status , BL. ByteString )
5444 , vErr :: WV. TopLevelError
5545 }
56- deriving (Show , Typeable )
46+ deriving (Show )
5747
5848instance Exception ValidationException
5949
0 commit comments