From 66e110bf295168376ada302f2037c45ba3146805 Mon Sep 17 00:00:00 2001 From: iphydf Date: Fri, 22 Dec 2023 23:50:36 +0000 Subject: [PATCH] chore: Remove warning suppression. --- BUILD.bazel | 1 - test/Data/MessagePack/Types/AssocSpec.hs | 3 +-- test/Data/MessagePack/Types/ClassSpec.hs | 11 +++-------- 3 files changed, 4 insertions(+), 11 deletions(-) diff --git a/BUILD.bazel b/BUILD.bazel index aec99bb..1e64d55 100644 --- a/BUILD.bazel +++ b/BUILD.bazel @@ -27,7 +27,6 @@ haskell_library( hspec_test( name = "testsuite", size = "small", - compiler_flags = ["-Wno-unused-imports"], deps = [ ":hs-msgpack-types", "//third_party/haskell:QuickCheck", diff --git a/test/Data/MessagePack/Types/AssocSpec.hs b/test/Data/MessagePack/Types/AssocSpec.hs index 6cceb16..c299fd5 100644 --- a/test/Data/MessagePack/Types/AssocSpec.hs +++ b/test/Data/MessagePack/Types/AssocSpec.hs @@ -5,8 +5,7 @@ module Data.MessagePack.Types.AssocSpec where import Data.MessagePack.Types (Assoc (..)) import Test.Hspec (Spec, describe, it, shouldBe) -import Test.QuickCheck (Arbitrary (..), - property) +import Test.QuickCheck (property) import Test.QuickCheck.Instances.MessagePack () spec :: Spec diff --git a/test/Data/MessagePack/Types/ClassSpec.hs b/test/Data/MessagePack/Types/ClassSpec.hs index 3726d1d..8fc6800 100644 --- a/test/Data/MessagePack/Types/ClassSpec.hs +++ b/test/Data/MessagePack/Types/ClassSpec.hs @@ -8,14 +8,9 @@ {-# LANGUAGE Trustworthy #-} module Data.MessagePack.Types.ClassSpec where -import Control.Applicative (empty, pure, (<$>), - (<*>), (<|>)) -import Control.Monad (mplus, mzero) -import Control.Monad.Validate (MonadValidate (..), - runValidate) +import Control.Monad.Validate (runValidate) import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy as LBS -import Data.Hashable (Hashable) import qualified Data.HashMap.Strict as HashMap import Data.Int (Int16, Int32, Int64, Int8) @@ -31,8 +26,8 @@ import qualified Data.Text.Lazy as LText import qualified Data.Vector as V import qualified Data.Vector.Storable as VS import qualified Data.Vector.Unboxed as VU -import Data.Word (Word, Word16, Word32, - Word64, Word8) +import Data.Word (Word16, Word32, Word64, + Word8) import GHC.Generics (Generic) import Test.Hspec (Spec, describe, it, shouldBe, shouldSatisfy)