X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FForeignPtr.hs;h=b91ffebf52b09f9916f351619400f0a624ceb43d;hb=41e8fba828acbae1751628af50849f5352b27873;hp=6a7458ac6ef51bb72edd79586e0e4c252422b0d0;hpb=b72c4131a752dbd2670fdc9df4797c27c4cebc5f;p=ghc-base.git

diff --git a/Foreign/ForeignPtr.hs b/Foreign/ForeignPtr.hs
index 6a7458a..b91ffeb 100644
--- a/Foreign/ForeignPtr.hs
+++ b/Foreign/ForeignPtr.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Foreign.ForeignPtr
@@ -101,7 +102,7 @@ instance Show (ForeignPtr a) where
 #ifndef __NHC__
 newForeignPtr :: FinalizerPtr a -> Ptr a -> IO (ForeignPtr a)
 -- ^Turns a plain memory reference into a foreign pointer, and
--- associates a finaliser with the reference.  The finaliser will be
+-- associates a finalizer with the reference.  The finalizer will be
 -- executed after the last reference to the foreign object is dropped.
 -- There is no guarantee of promptness, however the finalizer will be
 -- executed before the program exits.