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/HsParser.ly | |
| parent | e14da1363535a32d2d606ee65de60aa5c8489feb (diff) | |
[haddock @ 2002-04-24 15:57:47 by simonmar]
Handle gcons in export lists (a common extension).
Diffstat (limited to 'src/HsParser.ly')
| -rw-r--r-- | src/HsParser.ly | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/HsParser.ly b/src/HsParser.ly index 749b466a..26829cd9 100644 --- a/src/HsParser.ly +++ b/src/HsParser.ly @@ -1,5 +1,5 @@ q----------------------------------------------------------------------------- -$Id: HsParser.ly,v 1.2 2002/04/10 13:23:55 simonmar Exp $ +$Id: HsParser.ly,v 1.3 2002/04/24 15:57:47 simonmar Exp $ (c) Simon Marlow, Sven Panne 1997-2000 @@ -206,7 +206,7 @@ The Export List > qcname :: { HsQName } > : qvar { $1 } -> | qcon { $1 } +> | gcon { $1 } ----------------------------------------------------------------------------- Import Declarations @@ -608,7 +608,7 @@ other implementations don't manage this either. > aexp1 :: { HsExp } > : qvar { HsVar $1 } -> | gcon { $1 } +> | gcon { HsCon $1 } > | literal { $1 } > | '(' exp ')' { HsParen $2 } > | '(' texps ')' { HsTuple True $2 } @@ -725,11 +725,11 @@ Record Field Update/Construction ----------------------------------------------------------------------------- Variables, Constructors and Operators. -> gcon :: { HsExp } -> : '(' ')' { unit_con } -> | '[' ']' { HsList [] } -> | '(' commas ')' { tuple_con $2 } -> | qcon { HsCon $1 } +> gcon :: { HsQName } +> : '(' ')' { unit_con_name } +> | '[' ']' { nil_con_name } +> | '(' commas ')' { tuple_con_name $2 } +> | qcon { $1 } > var :: { HsName } > : varid { $1 } |