--
-----------------------------------------------------------------------------
-#ifndef __HUGS__
-#include "config.h"
+#ifdef __GLASGOW_HASKELL__
+#include "ghcconfig.h"
#endif
module Debug.Trace (
) where
import Prelude
+import Data.IORef
import System.IO.Unsafe
import System.IO
-#ifdef __GLASGOW_HASKELL__
-import GHC.IOBase
-import GHC.Handle
-#endif
-
+#ifdef mingw32_TARGET_OS
import Foreign.C.String
+#endif
{-# NOINLINE tracers #-}
tracers :: IORef [(String, String -> IO ())]