[project @ 2005-04-02 04:39:35 by dons]

Typo in comment only:
	"Causes a the finalizers associated with a foreign pointer..."
to
	"Causes the finalizers associated with a foreign pointer..."

diff --git a/GHC/ForeignPtr.hs b/GHC/ForeignPtr.hs
index 359333d..ee95828 100644 (file)
--- a/GHC/ForeignPtr.hs
+++ b/GHC/ForeignPtr.hs
@@ -237,7 +237,7 @@ castForeignPtr :: ForeignPtr a -> ForeignPtr b
 -- parameterised by one type into another type.
 castForeignPtr f = unsafeCoerce# f
 
--- | Causes a the finalizers associated with a foreign pointer to be run
+-- | Causes the finalizers associated with a foreign pointer to be run
 -- immediately.
 finalizeForeignPtr :: ForeignPtr a -> IO ()
 finalizeForeignPtr foreignPtr = do