[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / lib / ghc / MatchPS.lhs

diff --git a/ghc/lib/ghc/MatchPS.lhs b/ghc/lib/ghc/MatchPS.lhs
index 54ed33c..df05e35 100644 (file)
--- a/ghc/lib/ghc/MatchPS.lhs
+++ b/ghc/lib/ghc/MatchPS.lhs
@@ -264,8 +264,9 @@ replace (REmatch arr before@(_,b_end) match after lst)
          acc
        else
          let
-          x@(C# x#) = _headPS repl
-          xs        = _tailPS' repl
+          x  = _headPS repl
+         x# = case x of { C# c -> c }
+          xs = _tailPS' repl
          in
           case x# of
             '\\'# ->