Drop NFData constraint from compact.
[ghc.git] / libraries / compact / tests / compact_function.hs
index fc4f4ca..8193a78 100644 (file)
@@ -1,10 +1,6 @@
-import Control.DeepSeq
 import Control.Exception
 import Data.Compact
 
 data HiddenFunction = HiddenFunction (Int -> Int)
 
-instance NFData HiddenFunction where
-  rnf x = x `seq` () -- ignore the function inside
-
 main = compact (HiddenFunction (+1))