X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FPtr.hs;h=bca908bd4ceb3cc4dd73fb2db4d21c0daadea2eb;hb=7a5cd3c3868a53f1c9b06a98faa37ffcf787b1c0;hp=00798284870d2186ca8fee753afd6a678231ef4e;hpb=dce1f7d375ddf22fc17ef98734a8ee6e302b1a45;p=ghc-base.git

diff --git a/Foreign/Ptr.hs b/Foreign/Ptr.hs
index 0079828..bca908b 100644
--- a/Foreign/Ptr.hs
+++ b/Foreign/Ptr.hs
@@ -85,9 +85,7 @@ instance Show (Ptr a) where
 instance Show (FunPtr a) where
    showsPrec p = showsPrec p . castFunPtrToPtr
 #endif
-#endif
 
-#ifndef __NHC__
 foreign import ccall unsafe "freeHaskellFunctionPtr"
     freeHaskellFunPtr :: FunPtr a -> IO ()
 #endif