From f2dc93350f9b67e203b95bd5dfbccf66bd118d48 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 14 Apr 2000 08:52:35 +0000
Subject: [PATCH] [project @ 2000-04-14 08:52:35 by simonmar] _ForeignObj ==>
 ForeignObj

---
 ghc/compiler/utils/FastString.lhs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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}
 
-- 
1.7.10.4