diff options
| author | simonmar <unknown> | 2002-05-08 14:48:41 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-08 14:48:41 +0000 |
| commit | db23f65e1d2a82ac7d86c055cac66b35a3f68940 (patch) | |
| tree | 9df9e7e323fbe4d8b8fa590eaa920de3c46057e8 /src/HsSyn.lhs | |
| parent | cda064470606a73d9ed97644684a447791b627f5 (diff) | |
[haddock @ 2002-05-08 14:48:39 by simonmar]
Add support for existential quantifiers on constructors.
Diffstat (limited to 'src/HsSyn.lhs')
| -rw-r--r-- | src/HsSyn.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/HsSyn.lhs b/src/HsSyn.lhs index 5054a8df..ab274ee0 100644 --- a/src/HsSyn.lhs +++ b/src/HsSyn.lhs @@ -1,5 +1,5 @@ % ----------------------------------------------------------------------------- -% $Id: HsSyn.lhs,v 1.6 2002/05/08 11:21:56 simonmar Exp $ +% $Id: HsSyn.lhs,v 1.7 2002/05/08 14:48:41 simonmar Exp $ % % (c) The GHC Team, 1997-2002 % @@ -140,8 +140,8 @@ data HsMatch deriving (Eq,Show) data HsConDecl - = HsConDecl SrcLoc HsName [HsBangType] (Maybe String) - | HsRecDecl SrcLoc HsName [HsFieldDecl] (Maybe String) + = HsConDecl SrcLoc HsName [HsName] HsContext [HsBangType] (Maybe String) + | HsRecDecl SrcLoc HsName [HsName] HsContext [HsFieldDecl] (Maybe String) deriving (Eq,Show) data HsFieldDecl |