From: ross <unknown>
Date: Mon, 16 Feb 2004 11:08:58 +0000 (+0000)
Subject: [project @ 2004-02-16 11:08:58 by ross]
X-Git-Tag: nhc98-1-18-release~378
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=74f9531c9030985a0adcec184f562218dd8aab7c;p=ghc-base.git

[project @ 2004-02-16 11:08:58 by ross]
adjust imports for portability
---

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index e5905b1..00af949 100644
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -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 ())]