Updated to reflect move of PprStyle to Outputable
IMP_Ubiq(){-uitous-}
import CmdLineOpts ( opt_SpecialiseOverloaded, opt_SpecialiseUnboxed,
IMP_Ubiq(){-uitous-}
import CmdLineOpts ( opt_SpecialiseOverloaded, opt_SpecialiseUnboxed,
+ opt_SpecialiseAll, opt_PprUserLength
)
import Bag ( isEmptyBag, bagToList, Bag )
import Class ( GenClass{-instance NamedThing-}, SYN_IE(Class),
)
import Bag ( isEmptyBag, bagToList, Bag )
import Class ( GenClass{-instance NamedThing-}, SYN_IE(Class),
)
import Maybes ( maybeToBool, catMaybes, firstJust )
import Name ( OccName, pprOccName, modAndOcc, NamedThing(..) )
)
import Maybes ( maybeToBool, catMaybes, firstJust )
import Name ( OccName, pprOccName, modAndOcc, NamedThing(..) )
-import PprStyle ( PprStyle(..) )
+import Outputable ( PprStyle(..), Outputable(..) )
import PprType ( pprGenType, pprParendGenType, pprMaybeTy,
TyCon{-ditto-}, GenType{-ditto-}, GenTyVar, GenClassOp
)
import PprType ( pprGenType, pprParendGenType, pprMaybeTy,
TyCon{-ditto-}, GenType{-ditto-}, GenTyVar, GenClassOp
)
assertPanic, panic{-ToDo:rm-}
)
assertPanic, panic{-ToDo:rm-}
)
-#if __GLASGOW_HASKELL__ >= 202
-import Outputable ( Outputable(..) )
-#endif
-
cmpType = panic "SpecUtils.cmpType (ToDo: get rid of)"
mkSameSpecCon = panic "SpecUtils.mkSameSpecCon (ToDo)"
getInstIdModule = panic "SpecUtils.getInstIdModule (ToDo)"
cmpType = panic "SpecUtils.cmpType (ToDo: get rid of)"
mkSameSpecCon = panic "SpecUtils.mkSameSpecCon (ToDo)"
getInstIdModule = panic "SpecUtils.getInstIdModule (ToDo)"
pp_tyspec sty pp_mod (_, tycon, tys)
= hsep [pp_mod,
text "{-# SPECIALIZE data",
pp_tyspec sty pp_mod (_, tycon, tys)
= hsep [pp_mod,
text "{-# SPECIALIZE data",
- ppr PprForUser tycon, hsep (map (pprParendGenType sty) spec_tys),
+ ppr (PprForUser opt_PprUserLength) tycon, hsep (map (pprParendGenType sty) spec_tys),
text "-} {- Essential -}"
]
where
text "-} {- Essential -}"
]
where
| otherwise
= hsep [pp_mod,
text "{-# SPECIALIZE",
| otherwise
= hsep [pp_mod,
text "{-# SPECIALIZE",
- ppr PprForUser id, ptext SLIT("::"),
+ ppr (PprForUser opt_PprUserLength) id, ptext SLIT("::"),
pprGenType sty spec_ty,
text "#-}", pp_essential ]
where
pprGenType sty spec_ty,
text "#-}", pp_essential ]
where
import Literal ( Literal{-instance Outputable-} )
import Maybes ( catMaybes, firstJust, maybeToBool )
import Name ( isLocallyDefined )
import Literal ( Literal{-instance Outputable-} )
import Maybes ( catMaybes, firstJust, maybeToBool )
import Name ( isLocallyDefined )
-import Outputable ( interppSP, Outputable(..){-instance * []-} )
-import PprStyle ( PprStyle(..) )
+import Outputable ( PprStyle(..), interppSP, Outputable(..){-instance * []-} )
import PprType ( pprGenType, pprParendGenType, pprMaybeTy,
GenType{-instance Outputable-}, GenTyVar{-ditto-},
TyCon{-ditto-}
import PprType ( pprGenType, pprParendGenType, pprMaybeTy,
GenType{-instance Outputable-}, GenTyVar{-ditto-},
TyCon{-ditto-}