Drop NFData constraint from compact.
[ghc.git] / libraries / compact / tests / compact_simple_array.hs
index 69421c5..88f6698 100644 (file)
@@ -8,7 +8,6 @@ import Control.Monad.ST
 import Data.Array
 import Data.Array.ST
 import qualified Data.Array.Unboxed as U
-import Control.DeepSeq
 
 import Data.Compact
 import Data.Compact.Internal
@@ -29,9 +28,6 @@ arrTest = do
     writeArray arr j (fromIntegral $ 2*j + 1)
   return arr
 
-instance NFData (U.UArray i e) where
-  rnf x = seq x ()
-
 -- test :: (Word -> a -> IO (Maybe (Compact a))) -> IO ()
 test func = do
   let fromList :: Array Int Int