From: sewardj <unknown>
Date: Tue, 5 Feb 2002 16:56:39 +0000 (+0000)
Subject: [project @ 2002-02-05 16:56:38 by sewardj]
X-Git-Tag: Approximately_9120_patches~144
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0fee0e07419e78b1a12083d56b0f399a61f220ed;p=ghc-hetmet.git

[project @ 2002-02-05 16:56:38 by sewardj]
[non-code-change] complaint --> compliant
---

diff --git a/ghc/lib/std/PrelMarshalArray.lhs b/ghc/lib/std/PrelMarshalArray.lhs
index 6c5e89d..695e1fe 100644
--- a/ghc/lib/std/PrelMarshalArray.lhs
+++ b/ghc/lib/std/PrelMarshalArray.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelMarshalArray.lhs,v 1.9 2002/02/04 09:05:46 chak Exp $
+% $Id: PrelMarshalArray.lhs,v 1.10 2002/02/05 16:56:38 sewardj Exp $
 %
 % (c) The FFI task force, 2000
 %
@@ -208,7 +208,7 @@ withArray0 marker vals f  =
 -- destruct each element of an array (in reverse order)
 --
 destructArray          :: Storable a => Int -> Ptr a -> IO ()
-{-# DEPRECATED destructArray "This function is not standards complaint" #-}
+{-# DEPRECATED destructArray "This function is not standards compliant" #-}
 destructArray size ptr  =
   sequence_ [destruct (ptr `advancePtr` i)
     | i <- [size-1, size-2 .. 0]]
@@ -216,7 +216,7 @@ destructArray size ptr  =
 -- like `destructArray', but a terminator indicates where the array ends
 --
 destructArray0            :: (Storable a, Eq a) => a -> Ptr a -> IO ()
-{-# DEPRECATED destructArray0 "This function is not standards complaint" #-}
+{-# DEPRECATED destructArray0 "This function is not standards compliant" #-}
 destructArray0 marker ptr  = do
   size <- lengthArray0 marker ptr
   sequence_ [destruct (ptr `advancePtr` i)
diff --git a/ghc/lib/std/PrelStorable.lhs b/ghc/lib/std/PrelStorable.lhs
index f6ce455..4b59569 100644
--- a/ghc/lib/std/PrelStorable.lhs
+++ b/ghc/lib/std/PrelStorable.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelStorable.lhs,v 1.11 2002/02/04 09:05:46 chak Exp $
+% $Id: PrelStorable.lhs,v 1.12 2002/02/05 16:56:39 sewardj Exp $
 %
 % (c) The FFI task force, 2000
 %
@@ -87,7 +87,7 @@ class Storable a where
    poke ptr = pokeElemOff ptr 0
 
    destruct _ = return ()
-{-# DEPRECATED destruct "This function is not standards complaint" #-}
+{-# DEPRECATED destruct "This function is not standards compliant" #-}
 \end{code}
 
 System-dependent, but rather obvious instances