blob: a6f37e5d68aac2dc842c07be5d4d4faf6e3c70a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-ag,v 1.2 2005/05/01 22:55:07 kristerw Exp $
--- src/compiler98/RenameLib.hs 22 Dec 2004 12:58:35 -0000 1.31
+++ src/compiler98/RenameLib.hs 11 Apr 2005 14:24:49 -0000
@@ -216,7 +216,7 @@
(coni:_) ->
case (ntI . dropJust . lookupAT st ) coni of
(NewType _ [] _ [NTcons c _ _,res]) -> (synType,(u,c):newType)
- (NewType _ [] _ [NTvar v _,res]) -> (synType,(u,v):newType)
+ (NewType _ [] _ [NTvar v _,res]) -> (synType, newType)
(NewType _ [] _ [NTapp v1 v2,res]) -> (synType,newType)
-- ^ MW hack: omits potential circularity check!
(NewType _ [] _ (_:_:_)) ->
|
