diff options
| author | simonpj <unknown> | 2004-10-08 11:36:29 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2004-10-08 11:36:29 +0000 |
| commit | 113397e427d102afed56cc0625f3eb096465ad24 (patch) | |
| tree | b42cf4be775e7da97643a357f1d50bf980aa3fe7 /ghc/compiler/iface/IfaceSyn.lhs | |
| parent | 2b65c00d358287b432c8fb267a5cb3a754580d45 (diff) | |
| download | haskell-113397e427d102afed56cc0625f3eb096465ad24.tar.gz | |
[project @ 2004-10-08 11:36:26 by simonpj]
Fix missing case for algTyConRhs; fixes test ghci011
Diffstat (limited to 'ghc/compiler/iface/IfaceSyn.lhs')
| -rw-r--r-- | ghc/compiler/iface/IfaceSyn.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/iface/IfaceSyn.lhs b/ghc/compiler/iface/IfaceSyn.lhs index 6a0a1c79ba..3d3029cc1d 100644 --- a/ghc/compiler/iface/IfaceSyn.lhs +++ b/ghc/compiler/iface/IfaceSyn.lhs @@ -53,7 +53,7 @@ import TyCon ( TyCon, ArgVrcs, AlgTyConRhs(..), isRecursiveTyCon, isForeignTyCo isSynTyCon, isAlgTyCon, isPrimTyCon, isFunTyCon, isTupleTyCon, tupleTyConBoxity, tyConHasGenerics, tyConArgVrcs, getSynTyConDefn, - tyConArity, tyConTyVars, algTcRhs, tyConExtName ) + tyConArity, tyConTyVars, algTyConRhs, tyConExtName ) import DataCon ( dataConName, dataConSig, dataConFieldLabels, dataConStrictMarks, dataConTyCon, dataConIsInfix, isVanillaDataCon ) import Class ( FunDep, DefMeth, classExtraBigSig, classTyCon ) @@ -490,7 +490,7 @@ tyThingToIfaceDecl _ abstract_tcs ext (ATyCon tycon) | isAlgTyCon tycon = IfaceData { ifName = getOccName tycon, ifTyVars = toIfaceTvBndrs tyvars, - ifCons = ifaceConDecls (algTcRhs tycon), + ifCons = ifaceConDecls (algTyConRhs tycon), ifRec = boolToRecFlag (isRecursiveTyCon tycon), ifVrcs = tyConArgVrcs tycon, ifGeneric = tyConHasGenerics tycon } |