diff options
| author | simonmar <unknown> | 2002-04-24 15:57:48 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-24 15:57:48 +0000 |
| commit | 2ca8dfd4613f8a26256f9b61589900fdc78494e3 (patch) | |
| tree | 6c9dd58e7d2242fa132e748a5b5aab56af0fe545 /src/HsSyn.lhs | |
| parent | e14da1363535a32d2d606ee65de60aa5c8489feb (diff) | |
[haddock @ 2002-04-24 15:57:47 by simonmar]
Handle gcons in export lists (a common extension).
Diffstat (limited to 'src/HsSyn.lhs')
| -rw-r--r-- | src/HsSyn.lhs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/HsSyn.lhs b/src/HsSyn.lhs index 852f9fc1..ae55402e 100644 --- a/src/HsSyn.lhs +++ b/src/HsSyn.lhs @@ -1,5 +1,5 @@ % ----------------------------------------------------------------------------- -% $Id: HsSyn.lhs,v 1.2 2002/04/10 16:10:26 simonmar Exp $ +% $Id: HsSyn.lhs,v 1.3 2002/04/24 15:57:48 simonmar Exp $ % % (c) The GHC Team, 1997-2002 % @@ -22,8 +22,7 @@ module HsSyn ( mkHsForAllType, prelude_mod, main_mod, - unit_con_name, tuple_con_name, - unit_con, tuple_con, + unit_con_name, tuple_con_name, nil_con_name, as_name, qualified_name, hiding_name, minus_name, pling_name, dot_name, forall_name, unsafe_name, safe_name, threadsafe_name, export_name, stdcall_name, ccall_name, dotnet_name, @@ -279,12 +278,11 @@ main_mod = Module "Main" unit_ident = HsSpecial "()" tuple_ident i = HsSpecial ("("++replicate i ','++")") +nil_ident = HsSpecial "[]" unit_con_name = Qual prelude_mod (HsVarName unit_ident) tuple_con_name i = Qual prelude_mod (HsVarName (tuple_ident i)) - -unit_con = HsCon unit_con_name -tuple_con i = HsCon (tuple_con_name i) +nil_con_name = Qual prelude_mod (HsVarName nil_ident) as_name = HsVarName (HsIdent "as") qualified_name = HsVarName (HsIdent "qualified") |