[Haskell-cafe] Proposal: deriving ShallowEq?
Ben Lippmeier
Ben.Lippmeier at anu.edu.au
Tue Jul 19 06:16:35 EDT 2005
Bulat Ziganshin wrote:
> reading GHC sources is always very interesting :)
> that is from GHC/Base.hs :
> getTag :: a -> Int#
> getTag x = x `seq` dataToTag# x
! This is just what I was looking for, thankyou.
My shallowEq function is now simply:
shallowEq :: a -> a -> Bool
shallowEq a b = getTag a ==# getTag b
My project is already totally reliant on GHC, and this will save me the
heartache of hacking DrIFT (which I was in the process of setting up
when I saw this mail) into my makefile.
Portability be damned!
Ben.
More information about the Haskell-Cafe
mailing list