From: simonmar <unknown>
Date: Wed, 20 Mar 2002 15:38:36 +0000 (+0000)
Subject: [project @ 2002-03-20 15:38:36 by simonmar]
X-Git-Tag: nhc98-1-18-release~1084
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d455d826ee9a3a9c5424389d58980669d5fdb73a;p=haskell-directory.git

[project @ 2002-03-20 15:38:36 by simonmar]
convert to new-style FFI declarations
---

diff --git a/Foreign/Ptr.hs b/Foreign/Ptr.hs
index 5289cdb..7bbd4db 100644
--- a/Foreign/Ptr.hs
+++ b/Foreign/Ptr.hs
@@ -9,7 +9,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Ptr.hs,v 1.5 2002/03/14 12:09:50 simonmar Exp $
+-- $Id: Ptr.hs,v 1.6 2002/03/20 15:38:36 simonmar Exp $
 --
 -- Pointer types.
 --
@@ -67,5 +67,5 @@ instance Show (Ptr a) where
 #endif
 #endif
 
-foreign import "freeHaskellFunctionPtr" unsafe
+foreign import ccall unsafe "freeHaskellFunctionPtr"
     freeHaskellFunPtr :: FunPtr a -> IO ()