import identifiers explicitly

Author: harendra-kumar

test/Extra.hs

@@ -1,8 +1,8 @@
 module Main (main) where
 
-import Data.Text.Normalize (NormalizationMode(..))
+import Data.Text.Normalize (NormalizationMode(NFD))
 import QuickCheckUtils ()
-import Test.QuickCheck
+import Test.QuickCheck (quickCheck)
 
 -- Misc, trivial, boundary test cases
 

test/NormalizationTest.hs

@@ -20,7 +20,7 @@ import Data.List (intercalate, isPrefixOf)
 import Data.List.Split (splitOn)
 import Data.Text (Text)
 import qualified Data.Text as T
-import Data.Text.Normalize (NormalizationMode(..), normalize)
+import Data.Text.Normalize (NormalizationMode(NFD, NFKD, NFC, NFKC), normalize)
 import Text.Printf (printf)
 
 #if !MIN_VERSION_base(4,8,0)

test/Properties.hs

@@ -3,11 +3,11 @@
 
 module Main (main) where
 
-import           Data.Text                            (Text)
-import qualified Data.Text.Normalize                  as T
-import           Data.Text.Normalize                  (NormalizationMode (..))
-import           QuickCheckUtils                      ()
-import           Test.QuickCheck
+import Data.Text (Text)
+import qualified Data.Text.Normalize as T
+import Data.Text.Normalize (NormalizationMode)
+import QuickCheckUtils ()
+import Test.QuickCheck (maxSuccess, stdArgs, quickCheckWith)
 
 #ifdef HAS_ICU
 import qualified Data.Text.ICU                        as ICU

test/QuickCheckUtils.hs

@@ -3,10 +3,10 @@
 
 module QuickCheckUtils () where
 
-import Control.DeepSeq (NFData(..))
+import Control.DeepSeq (NFData(rnf))
 import qualified Data.Text as T
-import Data.Text.Normalize (NormalizationMode(..))
-import Test.QuickCheck (Arbitrary(..), elements)
+import Data.Text.Normalize (NormalizationMode(NFD, NFKD, NFC, NFKC))
+import Test.QuickCheck (Arbitrary(arbitrary, shrink), elements)
 
 instance NFData Ordering where
     rnf !_  = ()