diff options
| author | simonmar <unknown> | 2002-04-26 11:18:57 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-26 11:18:57 +0000 |
| commit | 31c53d79c85274012725480b8d78d341f3affe06 (patch) | |
| tree | 6c005e5816372d8a6455713debe6b3f0290ecf8c /src/HsSyn.lhs | |
| parent | bbd5fbab2ffebe759f20765a4dbd519b2d1381d8 (diff) | |
[haddock @ 2002-04-26 11:18:56 by simonmar]
- support for fundeps (partially contributed by Brett Letner - thanks
Brett).
- make it build with GHC 4.08.2
Diffstat (limited to 'src/HsSyn.lhs')
| -rw-r--r-- | src/HsSyn.lhs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/HsSyn.lhs b/src/HsSyn.lhs index 7abf4454..e732f2f8 100644 --- a/src/HsSyn.lhs +++ b/src/HsSyn.lhs @@ -1,5 +1,5 @@ % ----------------------------------------------------------------------------- -% $Id: HsSyn.lhs,v 1.4 2002/04/25 14:40:05 simonmar Exp $ +% $Id: HsSyn.lhs,v 1.5 2002/04/26 11:18:57 simonmar Exp $ % % (c) The GHC Team, 1997-2002 % @@ -17,7 +17,7 @@ module HsSyn ( HsGuardedRhs(..), HsType(..), HsContext, HsAsst, HsLiteral(..), HsExp(..), HsPat(..), HsPatField(..), HsStmt(..), HsFieldUpdate(..), HsAlt(..), HsGuardedAlts(..), HsGuardedAlt(..), - HsCallConv(..), HsFISafety(..), + HsCallConv(..), HsFISafety(..), HsFunDep, mkHsForAllType, @@ -119,7 +119,7 @@ data HsDecl | HsDataDecl SrcLoc HsContext HsName [HsName] [HsConDecl] [HsQName] | HsInfixDecl SrcLoc HsAssoc Int [HsName] | HsNewTypeDecl SrcLoc HsContext HsName [HsName] HsConDecl [HsQName] - | HsClassDecl SrcLoc HsType [HsDecl] + | HsClassDecl SrcLoc HsType [HsFunDep] [HsDecl] | HsInstDecl SrcLoc HsType [HsDecl] | HsDefaultDecl SrcLoc [HsType] | HsTypeSig SrcLoc [HsName] HsType @@ -169,6 +169,7 @@ data HsType | HsTyCon HsQName deriving (Eq,Show) +type HsFunDep = ([HsName], [HsName]) type HsContext = [HsAsst] type HsAsst = (HsQName,[HsType]) -- for multi-parameter type classes |