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/HaddockDB.hs | |
| parent | cda064470606a73d9ed97644684a447791b627f5 (diff) | |
[haddock @ 2002-05-08 14:48:39 by simonmar]
Add support for existential quantifiers on constructors.
Diffstat (limited to 'src/HaddockDB.hs')
| -rw-r--r-- | src/HaddockDB.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HaddockDB.hs b/src/HaddockDB.hs index 80bc1b7c..a2a4a8e7 100644 --- a/src/HaddockDB.hs +++ b/src/HaddockDB.hs @@ -76,10 +76,10 @@ ppIfaces mods = empty ppHsConstr :: HsConDecl -> Doc -ppHsConstr (HsRecDecl pos name fieldList maybe_doc) = +ppHsConstr (HsRecDecl pos name tvs ctxt fieldList maybe_doc) = ppHsName name <> (braces . hsep . punctuate comma . map ppField $ fieldList) -ppHsConstr (HsConDecl pos name typeList maybe_doc) = +ppHsConstr (HsConDecl pos name tvs ctxt typeList maybe_doc) = hsep (ppHsName name : map ppHsBangType typeList) ppField (HsFieldDecl ns ty doc) |