What I'm trying to do is something like below, except that #ifdef doesn't really work..
#ifdef __GLASGOW_HASKELL__
import GHC.Prim
unsafePtrEq = reallyUnsafePtrEquality#
#endif
#ifdef __HUGS__
import Hugs.IOExts (unsafePtrEq)
#endif
Any help is greated appreciated!
Regards,
Paul Liu