X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Debug%2FTrace.hs;h=accf247e882f234fd4eba7da7df0373d059d4490;hb=ec732e82cf3258adb72c31532df9e7f47a62ff8d;hp=40915215c97534fdbc5e3ed67009b8dcb031fe6e;hpb=b50e64c6f56695ce4c5b874e36c26db1c62be46e;p=haskell-directory.git

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index 4091521..accf247 100644
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -40,7 +40,8 @@ putTraceMsg msg = do
      withCString msg  $ \cmsg ->
       debugBelch cfmt cmsg
 
-foreign import ccall unsafe debugBelch :: CString -> CString -> IO ()
+foreign import ccall unsafe "RtsMessages.h debugBelch"
+   debugBelch :: CString -> CString -> IO ()
 #endif
 
 {-# NOINLINE trace #-}