From dfe1bcf198e1908d6ee9057ecda58677685d2f6b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 22 Nov 1999 10:53:51 +0000
Subject: [PATCH] [project @ 1999-11-22 10:53:51 by simonmar] eqForeignObj can
 be an unsafe ccall.

---
 ghc/lib/std/PrelForeign.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/lib/std/PrelForeign.lhs b/ghc/lib/std/PrelForeign.lhs
index 9e326cb..ed575ef 100644
--- a/ghc/lib/std/PrelForeign.lhs
+++ b/ghc/lib/std/PrelForeign.lhs
@@ -51,7 +51,7 @@ writeForeignObj (ForeignObj fo#) (A# datum#) = IO ( \ s# ->
 eqForeignObj mp1 mp2
   = unsafePerformIO (primEqForeignObj mp1 mp2) /= (0::Int)
 
-foreign import "eqForeignObj" primEqForeignObj :: ForeignObj -> ForeignObj -> IO Int
+foreign import "eqForeignObj" unsafe primEqForeignObj :: ForeignObj -> ForeignObj -> IO Int
 
 instance Eq ForeignObj where 
     p == q = eqForeignObj p q
-- 
1.7.10.4