diff options
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) |