diff options
| author | sof <unknown> | 2003-10-20 17:19:24 +0000 |
|---|---|---|
| committer | sof <unknown> | 2003-10-20 17:19:24 +0000 |
| commit | 187d7618e86c8db865c0cdcc38d0633c23cf1d88 (patch) | |
| tree | f4fa0cd9d75889507ea427a2e378631bd26f6109 /src/HaddockDB.hs | |
| parent | d510b517e44664c581e5fe93da046ee1ba42945c (diff) | |
[haddock @ 2003-10-20 17:19:22 by sof]
support for i-parameters + zip comprehensions
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 ) |