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

[Paul L]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/haskell/attachments/20070430/7a9bf857/attachment.htm