diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2011-08-22 20:25:27 +0100 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2011-09-06 17:34:31 +0100 |
| commit | 6fd172c2692723ab67fcc1a998feed320a8ab144 (patch) | |
| tree | 3e8e88d7be428e0338372103fcb76911c6362cee /src/Haddock/Interface/Create.hs | |
| parent | d54959189f33105ed09a59efee5ba34f53369282 (diff) | |
Adapt Haddock for the ConstraintKind extension changes
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index f9d72bd0..860a0044 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -770,7 +770,7 @@ extractClassDecl c tvs0 (L pos (TypeSig lname ltype)) = case ltype of _ -> L pos (TypeSig lname (noLoc (mkImplicitHsForAllTy (lctxt []) ltype))) where lctxt = noLoc . ctxt - ctxt preds = noLoc (HsClassP c (map toTypeNoLoc tvs0)) : preds + ctxt preds = nlHsTyConApp c (map toTypeNoLoc tvs0) : preds extractClassDecl _ _ _ = error "extractClassDecl: unexpected decl" |