[Haskell] how to include GHC/Hugs specific module/function?

30 Apr 2007

      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