diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-08-04 22:04:23 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-08-04 22:04:23 +0000 |
| commit | 2a6d497b719b39d7d7d73051f3baa783db343abb (patch) | |
| tree | 3447b5c556b5ba55cfbc6f6adc7e2da9ddc8560f /compiler/main/PprTyThing.hs | |
| parent | e69ddd9cc12f59c7ef7103e54fee2d1c55b9fc14 (diff) | |
| download | haskell-2a6d497b719b39d7d7d73051f3baa783db343abb.tar.gz | |
Massive patch for the first months work adding System FC to GHC #24
Broken up massive patch -=chak
Original log message:
This is (sadly) all done in one patch to avoid Darcs bugs.
It's not complete work... more FC stuff to come. A compiler
using just this patch will fail dismally.
Diffstat (limited to 'compiler/main/PprTyThing.hs')
| -rw-r--r-- | compiler/main/PprTyThing.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/compiler/main/PprTyThing.hs b/compiler/main/PprTyThing.hs index 2763b052fd..6354984159 100644 --- a/compiler/main/PprTyThing.hs +++ b/compiler/main/PprTyThing.hs @@ -17,7 +17,9 @@ module PprTyThing ( #include "HsVersions.h" import qualified GHC + import GHC ( TyThing(..), SrcLoc ) +import DataCon ( dataConResTys ) import Outputable -- ----------------------------------------------------------------------------- @@ -129,12 +131,15 @@ pprDataCon exts dataCon = pprAlgTyCon exts tyCon (== dataCon) (const True) where tyCon = GHC.dataConTyCon dataCon pprDataConDecl exts gadt_style show_label dataCon + = error "kevind stub" +{- | not gadt_style = ppr_fields tys_w_strs | otherwise = ppr_bndr dataCon <+> dcolon <+> sep [ ppr_tvs, GHC.pprThetaArrow theta, pp_tau ] where - (tyvars, theta, argTypes, tyCon, res_tys) = GHC.dataConSig dataCon + (tyvars, theta, argTypes, tyCon) = GHC.dataConSig dataCon labels = GHC.dataConFieldLabels dataCon + res_tys = dataConResTys dataCon qualVars = filter (flip notElem (GHC.tyConTyVars tyCon)) tyvars stricts = GHC.dataConStrictMarks dataCon tys_w_strs = zip stricts argTypes @@ -171,7 +176,7 @@ pprDataConDecl exts gadt_style show_label dataCon = ppr_bndr dataCon <+> braces (sep (punctuate comma (ppr_trim maybe_show_label (zip labels fields)))) - +-} pprClass exts cls | null methods = pprClassHdr exts cls |