acw/bang
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Did some work on datatype declarations.

Browse Source
This commit is contained in:
Adam Wick
2011-01-07 18:00:11 -08:00
parent 93c53c7943
commit 134164c4d4
2 changed files with 28 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
hsrc/Syntax/AST.hs
View File

@@ -26,7 +26,7 @@ data ImportName = ImportNamed QualifiedName
deriving (Show)
data Show a => Decl a =
DeclData a [Type] QualifiedName [QualifiedName] [DataClause]
DeclData a [Type] QualifiedName [QualifiedName] [DataClause a]
| DeclType a [Type]
| DeclNewtype a [Type]
| DeclClass a [Type]
@@ -45,7 +45,7 @@ addTypeRestrictions rs (DeclValue s _ a b c) = DeclValue s rs a b c
addTypeRestrictions rs (DeclExport s d) =
DeclExport s (addTypeRestrictions rs d)
data DataClause = DataClause QualifiedName [Type]
data DataClause a = DataClause a QualifiedName [Maybe QualifiedName] [Type]
deriving (Show)
data Show a => Expr a =