Small tweaks

haskell-unordered-containers · May 6, 2022 · 45c51bb · 45c51bb
1 parent 06d46ce
commit 45c51bb
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/tests/Properties/HashMapLazy.hs b/tests/Properties/HashMapLazy.hs
@@ -1,8 +1,6 @@
 {-# LANGUAGE CPP                        #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE NoMonomorphismRestriction  #-}
 {-# LANGUAGE ScopedTypeVariables        #-}
-{-# LANGUAGE TypeApplications           #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-} -- because of Arbitrary (HashMap k v)
 
 -- | Tests for "Data.HashMap.Lazy" and "Data.HashMap.Strict".  We test functions by

diff --git a/tests/Util/Key.hs b/tests/Util/Key.hs
@@ -43,7 +43,7 @@ instance Arbitrary Key where
 arbitraryHash :: Gen Int
 arbitraryHash = do
   let gens =
-        [ (2, (fromIntegral . QC.getLarge) <$> arbitrary @(Large Word16))
+        [ (2, fromIntegral . QC.getLarge <$> arbitrary @(Large Word16))
         , (1, QC.getSmall <$> arbitrary)
         , (1, QC.getLarge <$> arbitrary)
         ]