[project @ 2004-12-14 12:44:52 by simonmar]

[ghc-base.git] / Debug / Trace.hs

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index e5905b1..8b85f62 100644 (file)
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -12,8 +12,8 @@
 --
 -----------------------------------------------------------------------------
 
-#ifndef __HUGS__
-#include "config.h"
+#ifdef __GLASGOW_HASKELL__
+#include "ghcconfig.h"
 #endif
 
 module Debug.Trace (
@@ -34,15 +34,13 @@ 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 ())]