T11174.hs 446 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14
{-# LANGUAGE DeriveFunctor     #-}
{-# LANGUAGE DeriveFoldable    #-}
{-# LANGUAGE DeriveTraversable #-}
{-# LANGUAGE MagicHash         #-}
module T11174 where

import GHC.Prim (Int#)

data IntHash a = IntHash Int#
  deriving (Functor, Foldable, Traversable)
data IntHashFun a = IntHashFun ((a -> Int#) -> a)
  deriving Functor
data IntHashTuple a = IntHashTuple Int# a (a, Int, IntHashTuple (a, Int))
  deriving (Functor, Foldable, Traversable)