X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Debug%2FTrace.hs;h=79dcceb20dda3d77cf2e9365cfadfd4bdcb10790;hb=9fa9bc17072a58c0bae2cce4764d38677e96ac29;hp=d5a012a73b4ff0eadfa2433d1e97ba48222787ed;hpb=7f1f4e7a695c402ddd3a1dc2cc7114e649a78ebc;p=haskell-directory.git

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index d5a012a..79dcceb 100644
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  Debug.Trace
 -- Copyright   :  (c) The University of Glasgow 2001
 -- License     :  BSD-style (see the file libraries/core/LICENSE)
@@ -8,7 +8,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Trace.hs,v 1.1 2001/06/28 14:15:02 simonmar Exp $
+-- $Id: Trace.hs,v 1.3 2002/04/24 16:31:43 simonmar Exp $
 --
 -- The trace function.
 --
@@ -37,5 +37,5 @@ trace string expr = unsafePerformIO $ do
     postTraceHook fd
     return expr
 
-foreign import "PostTraceHook" postTraceHook :: Int -> IO ()
+foreign import ccall "PostTraceHook" postTraceHook :: Int -> IO ()
 #endif