libraries/compact/tests/compact_function.hs


1
2
3
4
5
6
7
8
9
10

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))