From: simonmar <unknown>
Date: Fri, 14 Apr 2000 08:52:35 +0000 (+0000)
Subject: [project @ 2000-04-14 08:52:35 by simonmar]
X-Git-Tag: Approximately_9120_patches~4705
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f2dc93350f9b67e203b95bd5dfbccf66bd118d48;p=ghc-hetmet.git

[project @ 2000-04-14 08:52:35 by simonmar]
_ForeignObj ==> ForeignObj
---

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 4b55c0d..080decb 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -331,7 +331,7 @@ mkFastSubStringFO# fo# start# len# =
     [] -> 
        -- no match, add it to table by copying out the
        -- the string into a ByteArray
-       case copySubStrFO (_ForeignObj fo#) (I# start#) (I# len#) of
+       case copySubStrFO (ForeignObj fo#) (I# start#) (I# len#) of
 #if __GLASGOW_HASKELL__ < 405
 	 (ByteArray _ barr#) ->  
 #else
@@ -345,7 +345,7 @@ mkFastSubStringFO# fo# start# len# =
        -- entry with same length and compare byte by byte.
        case bucket_match ls start# len# fo# of
 	 Nothing -> 
-           case copySubStrFO (_ForeignObj fo#) (I# start#) (I# len#) of
+           case copySubStrFO (ForeignObj fo#) (I# start#) (I# len#) of
 #if __GLASGOW_HASKELL__ < 405
 	     (ByteArray _ barr#) ->  
 #else
@@ -449,8 +449,8 @@ mkFastSubString :: Addr -> Int -> Int -> FastString
 mkFastSubString (A# a#) (I# start#) (I# len#) =
  mkFastString# (addrOffset# a# start#) len#
 
-mkFastSubStringFO :: _ForeignObj -> Int -> Int -> FastString
-mkFastSubStringFO (_ForeignObj fo#) (I# start#) (I# len#) =
+mkFastSubStringFO :: ForeignObj -> Int -> Int -> FastString
+mkFastSubStringFO (ForeignObj fo#) (I# start#) (I# len#) =
  mkFastSubStringFO# fo# start# len#
 \end{code}