Attached is a patch to storage.c to fix this
one (wrt Nov99.)
Notice that findQualifier() is dead if this
patch is accepted, so it could be nuked (but
I left it in.)
--sigbjorn
-----Original Message-----
From: Sigbjorn Finne [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 24, 2000 12:48
To: '[EMAIL PROTECTED]'
Subject: Local aliases and hugs98
Hi,
Hugs98 doesn't implement 'local aliases' (5.3.2 of H98 report) in
import decls correctly.
--A.hs
module A where { x = 'x'; }
--B.hs
module B where { y = 'y'; }
--C.hs
module C where
import qualified A as D
import qualified B as D
z = [D.x, D.y]
Prelude>:l C
Reading file "C.hs":
Reading file "A.hs":
Reading file "B.hs":
Reading file "C.hs":
ERROR "C.hs" (line 6): Undefined qualified variable "D.x"
B>
Believe I reported this one some time ago, but just in case it's been
forgotten:-)
--sigbjorn
begin 600 storage.diff
M*BHJ('-T;W)A9V4N8RY^,7X)5'5E($YO=B`Q-B`Q,3HQ-CHP,"`Q.3DY#0HM
M+2T@<W1O<F%G92YC"5-A="!-87(@,C4@,3$Z,3,Z,C(@,C`P,`T**BHJ*BHJ
M*BHJ*BHJ*BHJ#0HJ*BH@,CDL,S(@*BHJ*@T*+2TM(#(Y+#,S("TM+2T-"B`@
M(VEF("%)1TY/4D5?34]$54Q%4PT*("!S=&%T:6,@36]D=6QE(&QO8V%L(&9I
M;F11=6%L:69I97(@("`@("`@07)G<R@H5&5X="DI.PT**R!S=&%T:6,@3&ES
M="`@(&QO8V%L(&9I;F11=6%L:69I97)S("`@("`@07)G<R@H5&5X="DI.PT*
M("`C96YD:68-"B`@<W1A=&EC(%9O:60@;&]C86P@:&%S:%1Y8V]N("`@("`@
M("`@("`@($%R9W,H*%1Y8V]N*2D[#0HJ*BHJ*BHJ*BHJ*BHJ*BH-"BHJ*B`S
M-C@L,S<X("HJ*BH-"B`@(V5L<V4@+RH@(4E'3D]215]-3T153$53("HO#0H@
M(`D@("`@5&5X="`@('0@(#T@<71E>'1/9BAI9"D[#0HA(`D@("`@36]D=6QE
M(&T@(#T@9FEN9%%U86QI9FEE<BAQ;6]D3V8H:60I*3L-"B`@"2`@("!,:7-T
M("`@97,@/2!.24P[#0HA(`D@("`@:68@*&ES3G5L;"AM*2D@<F5T=7)N($Y)
M3#L-"B$@"2`@("!F;W(H97,];6]D=6QE*&TI+F5X<&]R=',[(&YO;DYU;&PH
M97,I.R!E<SUT;"AE<RDI('L-"B`@"0E#96QL(&4@/2!H9"AE<RD[#0H@(`D)
M:68@*&ES4&%I<BAE*2`F)B!I<U1Y8V]N*&9S="AE*2D@)B8@='EC;VXH9G-T
M*&4I*2YT97AT/3UT*2`-"B$@"0D@("`@<F5T=7)N(&9S="AE*3L-"B`@"2`@
M("!]#0H@(`D@("`@<F5T=7)N($Y)3#L-"BTM+2`S-CDL,S@R("TM+2T-"B`@
M(V5L<V4@+RH@(4E'3D]215]-3T153$53("HO#0H@(`D@("`@5&5X="`@('0@
M(#T@<71E>'1/9BAI9"D[#0HA(`D@("`@36]D=6QE(&T[#0HA(`D@("`@36]D
M=6QE(&US(#T@9FEN9%%U86QI9FEE<G,H<6UO9$]F*&ED*2D[#0H@(`D@("`@
M3&ES="`@(&5S(#T@3DE,.PT*(2`)("`@(&EF("AI<TYU;&PH;7,I*2!R971U
M<FX@3DE,.PT*(2`)("`@(&9O<BAM/6AD*&US*3L@;F]N3G5L;"AM<RD[(&US
M/71L*&US*2P@;3UH9"AM<RDI('L-"B$@"2`@("`@(&9O<BAE<SUM;V1U;&4H
M;2DN97AP;W)T<SL@;F]N3G5L;"AE<RD[(&5S/71L*&5S*2D@>PT*("`)"4-E
M;&P@92`](&AD*&5S*3L-"B`@"0EI9B`H:7-086ER*&4I("8F(&ES5'EC;VXH
M9G-T*&4I*2`F)B!T>6-O;BAF<W0H92DI+G1E>'0]/70I(`T*(2`)"2`@<F5T
M=7)N(&9S="AE*3L-"B$@"2`@("`@('T-"B`@"2`@("!]#0H@(`D@("`@<F5T
M=7)N($Y)3#L-"BHJ*BHJ*BHJ*BHJ*BHJ*@T**BHJ(#4R,RPU-#@@*BHJ*@T*
M("`C96QS92`O*B`A24=.3U)%7TU/1%5,15,@*B\-"B`@"2`@("!497AT("`@
M="`@/2!Q=&5X=$]F*&ED*3L-"B$@"2`@("!-;V1U;&4@;2`@/2!F:6YD475A
M;&EF:65R*'%M;V1/9BAI9"DI.PT*("`)("`@($QI<W0@("!E<R`]($Y)3#L-
M"B$@"2`@("!I9B`H:7-.=6QL*&TI*2!R971U<FX@3DE,.PT*(2`)("`@(&9O
M<BAE<SUM;V1U;&4H;2DN97AP;W)T<SL@;F]N3G5L;"AE<RD[(&5S/71L*&5S
M*2D@>PT*("`)"4-E;&P@92`](&AD*&5S*3L-"B`@"0EI9B`H:7-.86UE*&4I
M("8F(&YA;64H92DN=&5X=#T]="D@#0HA(`D)("`@(')E='5R;B!E.PT*("`)
M"65L<V4@:68@*&ES4&%I<BAE*2`F)B!$3U1$3U0]/7-N9"AE*2D@>PT*(2`)
M"2`@("!,:7-T('-U8F5N=&ET:65S(#T@3DE,.PT*(2`)"2`@("!#96QL(&,@
M/2!F<W0H92D[#0HA(`D)("`@(&EF("AI<U1Y8V]N*&,I#0HA(`D)"28F("AT
M>6-O;BAC*2YW:&%T/3U$051!5%E012!\?"!T>6-O;BAC*2YW:&%T/3U.15=4
M65!%*2D-"B$@"0D)<W5B96YT:71I97,@/2!T>6-O;BAC*2YD969N.PT*(2`)
M"2`@("!E;'-E(&EF("AI<T-L87-S*&,I*0T*(2`)"0ES=6)E;G1I=&EE<R`]
M(&-C;&%S<RAC*2YM96UB97)S.PT*(2`)"2`@("!F;W(H.R!N;VY.=6QL*'-U
M8F5N=&ET:65S*3L@<W5B96YT:71I97,]=&PH<W5B96YT:71I97,I*2"2`@("!R971U<FX@
M:&0H<W5B96YT:71I97,I.PT*(2`)"2`@("!]#0H@(`D)?0T*("`)("`@('T-
M"B`@"2`@("!R971U<FX@3DE,.PT*+2TM(#4R-RPU-34@+2TM+0T*("`C96QS
M92`O*B`A24=.3U)%7TU/1%5,15,@*B\-"B`@"2`@("!497AT("`@="`@/2!Q
M=&5X=$]F*&ED*3L-"B$@"2`@("!-;V1U;&4@;3L-"B$@"2`@("!-;V1U;&4@
M;7,@(#T@9FEN9%%U86QI9FEE<G,H<6UO9$]F*&ED*2D[#0H@(`D@("`@3&ES
M="`@(&5S(#T@3DE,.PT*(2`)("`@(&EF("AI<TYU;&PH;7,I*2!R971U<FX@
M3DE,.PT*(2`)("`@(&9O<BAM/6AD*&US*3L@;F]N3G5L;"AM<RD[(&US/71L
M*&US*2P@;3UH9"AM<RDI('L-"B$@"2`@("`@(&9O<BAE<SUM;V1U;&4H;2DN
M97AP;W)T<SL@;F]N3G5L;"AE<RD[(&5S/71L*&5S*2D@>PT*("`)"4-E;&P@
M92`](&AD*&5S*3L-"B`@"0EI9B`H:7-.86UE*&4I("8F(&YA;64H92DN=&5X
M=#T]="D@#0HA(`D)("!R971U<FX@93L-"B`@"0EE;'-E(&EF("AI<U!A:7(H
M92D@)B8@1$]41$]4/3US;F0H92DI('L-"B$@"0D@($QI<W0@<W5B96YT:71I
M97,@/2!.24P[#0HA(`D)("!#96QL(&,@/2!F<W0H92D[#0HA(`D)("!I9B`H
M:7-4>6-O;BAC*0T*(2`)"2`@("`@("8F("AT>6-O;BAC*2YW:&%T/3U$051!
M5%E012!\?"!T>6-O;BAC*2YW:&%T/3U.15=465!%*2D-"B$@"0D@("`@<W5B
M96YT:71I97,@/2!T>6-O;BAC*2YD969N.PT*(2`)"2`@96QS92!I9B`H:7-#
M;&%S<RAC*2D-"B$@"0D@("`@<W5B96YT:71I97,@/2!C8VQA<W,H8RDN;65M
M8F5R<SL-"B$@"0D@(&9O<B@[(&YO;DYU;&PH<W5B96YT:71I97,I.R!S=6)E
M;G1I=&EE<SUT;"AS=6)E;G1I=&EE<RDI('L-"B$@"0D@("`@+RII9B`H(6ES
M3F%M92AH9"AS=6)E;G1I=&EE<RDI*0T*(2`)"2`@("`@(&EN=&5R;F%L*")F
M:6YD475A;$YA;64S(BD[*B\-"B$@"0D@("`@:68@*&YA;64H:&0H<W5B96YT
M:71I97,I*2YT97AT(#T]('0I#0HA(`D)("`@("`@<F5T=7)N(&AD*'-U8F5N
M=&ET:65S*3L-"B$@"0D@('T-"B`@"0E]#0HK(`D@("`@("!]#0H@(`D@("`@
M?0T*("`)("`@(')E='5R;B!.24P[#0HJ*BHJ*BHJ*BHJ*BHJ*BH-"BHJ*B`X
M-S`L.#@Q("HJ*BH-"B`@(V5L<V4@+RH@(4E'3D]215]-3T153$53("HO#0H@
M(`E497AT("`@="`@/2!Q=&5X=$]F*&,I.PT*(2`)36]D=6QE(&T@(#T@9FEN
M9%%U86QI9FEE<BAQ;6]D3V8H8RDI.PT*("`)3&ES="`@(&5S(#T@3DE,.PT*
M(2`):68@*&ES3G5L;"AM*2D-"B$@"2`@("!R971U<FX@3DE,.PT*(2`)9F]R
M("AE<SUM;V1U;&4H;2DN97AP;W)T<SL@;F]N3G5L;"AE<RD[(&5S/71L*&5S
M*2D@>PT*("`)("`@($-E;&P@92`](&AD*&5S*3L-"B`@"2`@("!I9B`H:7-0
M86ER*&4I("8F(&ES0VQA<W,H9G-T*&4I*2`F)B!C8VQA<W,H9G-T*&4I*2YT
M97AT/3UT*2`-"B$@"0ER971U<FX@9G-T*&4I.PT*("`)?0T*("`C96YD:68-
M"BTM+2`X-S<L.#DP("TM+2T-"B`@(V5L<V4@+RH@(4E'3D]215]-3T153$53
M("HO#0H@(`E497AT("`@="`@/2!Q=&5X=$]F*&,I.PT*(2`)36]D=6QE(&T[
M#0HA(`E-;V1U;&4@;7,@/2!F:6YD475A;&EF:65R<RAQ;6]D3V8H8RDI.PT*
M("`)3&ES="`@(&5S(#T@3DE,.PT*(2`):68@*&ES3G5L;"AM<RDI(')E='5R
M;B!.24P[#0HA(`EF;W(H;3UH9"AM<RD[(&YO;DYU;&PH;7,I.R!M<SUT;"AM
M<RDL(&T]:&0H;7,I*2![#0HA(`D@(&9O<B`H97,];6]D=6QE*&TI+F5X<&]R
M=',[(&YO;DYU;&PH97,I.R!E<SUT;"AE<RDI('L-"B`@"2`@("!#96QL(&4@
M/2!H9"AE<RD[#0H@(`D@("`@:68@*&ES4&%I<BAE*2`F)B!I<T-L87-S*&9S
M="AE*2D@)B8@8V-L87-S*&9S="AE*2DN=&5X=#T]="D@#0HA(`D@("`@("!R
M971U<FX@9G-T*&4I.PT*(2`)("!]#0H@(`E]#0H@("-E;F1I9@T**BHJ*BHJ
M*BHJ*BHJ*BHJ#0HJ*BH@,3`V-2PQ,#8X("HJ*BH-"BTM+2`Q,#<T+#$P.3,@
M+2TM+0T*("`C96YD:68-"B`@("`@(')E='5R;B!.24P[#0HK('T-"BL@#0HK
M('-T871I8R!L;V-A;"!,:7-T(&9I;F11=6%L:69I97)S*'0I("`@("\J(&QO
M8V%T92!I;7!O<G0H<RD@=&AA="!H879E(&%L:6%S("=T)R`J+PT**R!497AT
M('0[('L-"BL@("`@($UO9'5L92!M<SL-"BL@("`@($QI<W0@;',@/2!.24P[
M#0HK("`@("!F;W(@*&US/6UO9'5L92AC=7)R96YT36]D=6QE*2YQ=6%L26UP
M;W)T<SL@;F]N3G5L;"AM<RD[(&US/71L*&US*2D@>PT**R`@("`@("!I9B`H
M=&5X=$]F*&9S="AH9"AM<RDI*3T]="D@>PT**R`)("!L<R`](&-O;G,H<VYD
M*&AD*&US*2DL(&QS*3L-"BL@("`@("`@?0T**R`@("`@?0T**R`C:68@,2`O
M*B!M<&H@*B\-"BL@("`@(&EF("AM;V1U;&4H8W5R<F5N=$UO9'5L92DN=&5X
M=#T]="D-"BL@("`@("`@;',@/2!C;VYS*&-U<G)E;G1-;V1U;&4L(&QS*3L-
F"BL@(V5N9&EF#0HK("`@("!R971U<FX@;',[#0H@('T-"B`@#0H=
`
end
