X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Debug%2FTrace.hs;h=5bc71280c9a96c538b8c1c95b62b629fa74a72ad;hb=de2b563a240bafc20b656729d1ecde0c890d22da;hp=7c9295f0ee848e9ce1cf38db9292d473c470da2e;hpb=99a329d9b272925dcdf474ce2369e9421b51e51c;p=ghc-base.git

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index 7c9295f..5bc7128 100644
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -22,10 +22,8 @@ import Prelude
 import System.IO.Unsafe
 
 #ifdef __GLASGOW_HASKELL__
-#ifdef mingw32_HOST_OS
 import Foreign.C.String
 #endif
-#endif
 
 -- | 'putTraceMsg' function outputs the trace message from IO monad.
 -- Usually the output stream is 'stderr' but if the function is called