diff options
| author | simonpj <unknown> | 2000-10-24 08:40:11 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-10-24 08:40:11 +0000 |
| commit | 99073d876ea762016683fb0b22b9d343ff864eb4 (patch) | |
| tree | 61565d2199721c39337926d710800159031a49b9 /ghc/compiler/parser/Parser.y | |
| parent | 323fee1e8cbabe604496a1b92c6de0e98ca037e4 (diff) | |
| download | haskell-99073d876ea762016683fb0b22b9d343ff864eb4.tar.gz | |
[project @ 2000-10-24 08:40:09 by simonpj]
Small wibbles
Diffstat (limited to 'ghc/compiler/parser/Parser.y')
| -rw-r--r-- | ghc/compiler/parser/Parser.y | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y index f228ea874b..d82fe3f285 100644 --- a/ghc/compiler/parser/Parser.y +++ b/ghc/compiler/parser/Parser.y @@ -1,6 +1,6 @@ {- ----------------------------------------------------------------------------- -$Id: Parser.y,v 1.42 2000/10/24 07:35:01 simonpj Exp $ +$Id: Parser.y,v 1.43 2000/10/24 08:40:10 simonpj Exp $ Haskell grammar. @@ -332,14 +332,12 @@ topdecl :: { RdrBinding } | srcloc 'data' ctype '=' constrs deriving {% checkDataHeader $3 `thenP` \(cs,c,ts) -> returnP (RdrHsDecl (TyClD - (mkTyData DataType cs c ts (reverse $5) (length $5) $6 - NoDataPragmas $1))) } + (mkTyData DataType cs c ts (reverse $5) (length $5) $6 $1))) } | srcloc 'newtype' ctype '=' newconstr deriving {% checkDataHeader $3 `thenP` \(cs,c,ts) -> returnP (RdrHsDecl (TyClD - (mkTyData NewType cs c ts [$5] 1 $6 - NoDataPragmas $1))) } + (mkTyData NewType cs c ts [$5] 1 $6 $1))) } | srcloc 'class' ctype fds where {% checkDataHeader $3 `thenP` \(cs,c,ts) -> @@ -347,8 +345,7 @@ topdecl :: { RdrBinding } (binds,sigs) = cvMonoBindsAndSigs cvClassOpSig (groupBindings $5) in returnP (RdrHsDecl (TyClD - (mkClassDecl cs c ts $4 sigs binds - NoClassPragmas $1))) } + (mkClassDecl cs c ts $4 sigs binds $1))) } | srcloc 'instance' inst_type where { let (binds,sigs) |