projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[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
'\\'# ->