diff options
Diffstat (limited to 'src/HaddockDB.hs')
| -rw-r--r-- | src/HaddockDB.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/HaddockDB.hs b/src/HaddockDB.hs index f1718149..87de75b5 100644 --- a/src/HaddockDB.hs +++ b/src/HaddockDB.hs @@ -112,6 +112,7 @@ ppHsType (HsForAllType (Just tvs) context htype) = hsep (text "forall" : map ppHsName tvs ++ text "." : ppHsContext context : text "=>" : [ppHsType htype]) ppHsType (HsTyFun a b) = fsep [ppHsBType a, text "->", ppHsType b] +ppHsType (HsTyIP n t) = fsep [(char '?' <> ppHsName n), text "::", ppHsType t] ppHsType t = ppHsBType t ppHsBType (HsTyApp (HsTyCon (Qual (Module "Prelude") (HsTyClsName (HsSpecial "[]")))) b ) |