import GHC.Handle
#endif
+#ifdef __HUGS__
+import Hugs.IOExts
+#endif
+
#ifdef __GLASGOW_HASKELL__
{-# NOINLINE trace #-}
{-|
foreign import ccall "PostTraceHook" postTraceHook :: Int -> IO ()
#endif
+
+#ifdef __NHC__
+trace :: String -> a -> a
+trace str expr = unsafePerformIO $ do hPutStr stderr str; return expr
+#endif