diff options
| -rw-r--r-- | ghc/lib/std/PrelForeign.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/lib/std/PrelForeign.lhs b/ghc/lib/std/PrelForeign.lhs index 9e326cb7b3..ed575ef604 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 |