import Type ( SYN_IE(Type) )
import Outputable
-import UniqFM ( SYN_IE(Uniquable) )
+import UniqFM ( Uniquable(..) )
\end{code}
\begin{code}
1 type Id = Id.GenId Type.Type ;
1 data GenId ty ;
1 data StrictnessMark = MarkedStrict | NotMarkedStrict ;
-1 dataConArgTys _:_ Id -> [Type.Type] -> [Type.Type] ;;
-1 idType _:_ Id -> Type.Type ;;
-1 isNullaryDataCon _:_ Id -> PrelBase.Bool ;;
-1 mkDataCon _:_ Name.Name -> [StrictnessMark] -> [FieldLabel.FieldLabel] -> [TyVar.TyVar] -> [(Class.Class,Type.Type)] -> [TyVar.TyVar] -> [(Class.Class,Type.Type)] -> [Type.Type] -> TyCon.TyCon -> Id ;;
-1 mkTupleCon _:_ PrelBase.Int -> Name.Name -> Type.Type -> Id ;;
-1 nmbrId _:_ Id -> PprEnv.NmbrEnv -> (PprEnv.NmbrEnv, Id) ;;
-1 pprId _:_ _forall_ [ty] {Outputable.Outputable ty} => Outputable.PprStyle -> GenId ty -> Pretty.Doc ;;
+1 dataConArgTys _:_ Id.Id -> [Type.Type] -> [Type.Type] ;;
+1 idType _:_ Id.Id -> Type.Type ;;
+1 isNullaryDataCon _:_ Id.Id -> PrelBase.Bool ;;
+1 mkDataCon _:_ Name.Name -> [Id.StrictnessMark] -> [FieldLabel.FieldLabel] -> [TyVar.TyVar] -> [(Class.Class,Type.Type)] -> [TyVar.TyVar] -> [(Class.Class,Type.Type)] -> [Type.Type] -> TyCon.TyCon -> Id.Id ;;
+1 mkTupleCon _:_ PrelBase.Int -> Name.Name -> Type.Type -> Id.Id ;;
+1 nmbrId _:_ Id.Id -> PprEnv.NmbrEnv -> (PprEnv.NmbrEnv, Id.Id) ;;
+1 pprId _:_ _forall_ [ty] {Outputable.Outputable ty} => Outputable.PprStyle -> Id.GenId ty -> Pretty.Doc ;;
import Unique ( pprUnique, showUnique, Unique )
import UniqSet ( UniqSet(..), emptyUniqSet, unitUniqSet, unionUniqSets, uniqSetToList, isEmptyUniqSet,
unionManyUniqSets, minusUniqSet, mkUniqSet, elementOfUniqSet, addListToUniqSet, addOneToUniqSet )
-import UniqFM ( UniqFM, SYN_IE(Uniquable) )
+import UniqFM ( UniqFM, Uniquable(..) )
import Util --( cmpPString, panic, assertPanic {-, pprTrace ToDo:rm-} )
\end{code}
#elif __GLASGOW_HASKELL__ >= 202
import GlaExts
import STBase
+# if __GLASGOW_HASKELL__ == 202
+import PrelBase ( Char(..) )
+# endif
# define WHASH GlaExts.W#
#else
import PreludeGlaST
#else
import GlaExts
import ST
+#if __GLASGOW_HASKELL__ == 202
+import PrelBase ( Char(..) )
+#endif
#endif
IMP_Ubiq(){-uitous-}
_declarations_
1 data Unfolding;
1 data UnfoldingGuidance;
-1 mkUnfolding _:_ PragmaInfo.PragmaInfo -> CoreSyn.CoreExpr -> Unfolding ;;
-1 noUnfolding _:_ Unfolding ;;
+1 mkUnfolding _:_ PragmaInfo.PragmaInfo -> CoreSyn.CoreExpr -> CoreUnfold.Unfolding ;;
+1 noUnfolding _:_ CoreUnfold.Unfolding ;;
_declarations_
1 data HsBinds a b c d ;
1 nullBinds _:_ _forall_ [a b c d] => HsBinds.HsBinds a b c d -> PrelBase.Bool ;;
-
IMPORT_DELOOPER(HsLoop) ( pprMatches, pprGRHSsAndBinds,
Match, GRHSsAndBinds,
pprExpr, HsExpr )
-#else
-import {-# SOURCE #-} HsMatches ( pprMatches, Match, pprGRHSsAndBinds, GRHSsAndBinds )
-import {-# SOURCE #-} HsExpr ( pprExpr, HsExpr )
#endif
import HsPragmas ( GenPragmas, ClassOpPragmas )
import SrcLoc ( SrcLoc{-instances-} )
import TyVar ( GenTyVar{-instances-} )
import Unique ( Unique {- instance Eq -} )
+
+#if __GLASGOW_HASKELL__ >= 202
+import {-# SOURCE #-} HsExpr ( pprExpr, HsExpr )
+import {-# SOURCE #-} HsMatches ( pprMatches, Match, pprGRHSsAndBinds, GRHSsAndBinds )
+#endif
+
\end{code}
%************************************************************************
_interface_ HsExpr 1
_exports_
-HsExpr HsExpr pprExpr ;
+HsExpr HsExpr pprExpr;
_declarations_
1 data HsExpr a b c d;
-1 pprExpr _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c,
- Outputable.Outputable d, PrelBase.Eq a,
- Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b}
- => Outputable.PprStyle -> HsExpr a b c d -> Pretty.Doc ;;
+1 pprExpr _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c, Outputable.Outputable d, PrelBase.Eq a, Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b} => Outputable.PprStyle -> HsExpr.HsExpr a b c d -> Pretty.Doc ;;
_declarations_
1 data Match a b c d ;
1 data GRHSsAndBinds a b c d ;
-1 pprGRHSsAndBinds _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c,
- Outputable.Outputable d, PrelBase.Eq a,
- Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b}
- => Outputable.PprStyle -> PrelBase.Bool -> GRHSsAndBinds a b c d -> Pretty.Doc ;;
-
-1 pprMatch _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c,
- Outputable.Outputable d, PrelBase.Eq a,
- Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b}
- => Outputable.PprStyle -> PrelBase.Bool -> Match a b c d -> Pretty.Doc ;;
-
-1 pprMatches _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c,
- Outputable.Outputable d, PrelBase.Eq a,
- Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b}
- => Outputable.PprStyle -> (PrelBase.Bool, Pretty.Doc) -> [Match a b c d] -> Pretty.Doc ;;
-
+1 pprGRHSsAndBinds _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c, Outputable.Outputable d, PrelBase.Eq a, Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b} => Outputable.PprStyle -> PrelBase.Bool -> HsMatches.GRHSsAndBinds a b c d -> Pretty.Doc ;;
+1 pprMatch _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c, Outputable.Outputable d, PrelBase.Eq a, Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b} => Outputable.PprStyle -> PrelBase.Bool -> HsMatches.Match a b c d -> Pretty.Doc ;;
+1 pprMatches _:_ _forall_ [a b c d] {Name.NamedThing c, Outputable.Outputable c, Outputable.Outputable d, PrelBase.Eq a, Outputable.Outputable a, PrelBase.Eq b, Outputable.Outputable b} => Outputable.PprStyle -> (PrelBase.Bool, Pretty.Doc) -> [HsMatches.Match a b c d] -> Pretty.Doc ;;
#if __GLASGOW_HASKELL__ >= 202
import GlaExts hiding (Addr)
import FastString
-import Ubiq
#else
IMP_Ubiq(){-uitous-}
#endif
import qualified GlaExts (Addr(..))
import GlaExts hiding (Addr(..))
import FastString
-import Ubiq
#else
IMP_Ubiq(){-uitious-}
#endif
import qualified GlaExts (Addr(..))
import GlaExts hiding (Addr(..))
import FastString
-import Ubiq
#else
IMP_Ubiq(){-uitous-}
import Pretty ( Doc )
CostCentre CostCentre noCostCentre useCurrentCostCentre overheadCostCentre dontCareCostCentre subsumedCosts preludeCafsCostCentre mkAllCafsCC preludeDictsCostCentre mkAllDictsCC cafifyCC mkUserCC;
_declarations_
1 data CostCentre;
-1 noCostCentre _:_ CostCentre ;;
-1 useCurrentCostCentre _:_ CostCentre ;;
-1 overheadCostCentre _:_ CostCentre ;;
-1 dontCareCostCentre _:_ CostCentre ;;
-1 subsumedCosts _:_ CostCentre ;;
-1 preludeCafsCostCentre _:_ CostCentre ;;
-1 mkAllCafsCC _:_ FastString.FastString -> FastString.FastString -> CostCentre ;;;;
-1 preludeDictsCostCentre _:_ PrelBase.Bool -> CostCentre ;;
-1 mkAllDictsCC _:_ FastString.FastString -> FastString.FastString -> PrelBase.Bool -> CostCentre ;;
-1 cafifyCC _:_ CostCentre -> CostCentre ;;
-1 mkUserCC _:_ FastString.FastString -> FastString.FastString -> FastString.FastString -> CostCentre ;;
+1 noCostCentre _:_ CostCentre.CostCentre ;;
+1 useCurrentCostCentre _:_ CostCentre.CostCentre ;;
+1 overheadCostCentre _:_ CostCentre.CostCentre ;;
+1 dontCareCostCentre _:_ CostCentre.CostCentre ;;
+1 subsumedCosts _:_ CostCentre.CostCentre ;;
+1 preludeCafsCostCentre _:_ CostCentre.CostCentre ;;
+1 mkAllCafsCC _:_ FastString.FastString -> FastString.FastString -> CostCentre.CostCentre ;;
+1 preludeDictsCostCentre _:_ PrelBase.Bool -> CostCentre.CostCentre ;;
+1 mkAllDictsCC _:_ FastString.FastString -> FastString.FastString -> PrelBase.Bool -> CostCentre.CostCentre ;;
+1 cafifyCC _:_ CostCentre.CostCentre -> CostCentre.CostCentre ;;
+1 mkUserCC _:_ FastString.FastString -> FastString.FastString -> FastString.FastString -> CostCentre.CostCentre ;;
IMPORT_1_3(Char(isDigit, isAlpha, isAlphanum, isUpper,isLower, isSpace, ord))
-IMPORT_DELOOPER(Ubiq)
#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
+IMPORT_DELOOPER(Ubiq)
IMPORT_DELOOPER(IdLoop) -- get the CostCentre type&constructors from here
#else
import {-# SOURCE #-} CostCentre
+# if __GLASGOW_HASKELL__ == 202
+import PrelBase ( Char(..) )
+# endif
#endif
import CmdLineOpts ( opt_IgnoreIfacePragmas )
import Name ( changeUnique, Name, OccName, occNameString )
import Outputable
import Unique -- Keys for built-in classes
-import UniqFM ( SYN_IE(Uniquable))
+import UniqFM ( Uniquable(..) )
import Pretty ( Doc, hsep, ptext )
import SrcLoc ( SrcLoc )
import Util
_declarations_
1 type Type = Type.GenType TyVar.TyVar Usage.UVar ;
1 data GenType a b;
-1 splitFunTy _:_ _forall_ [a b] => Type.GenType a b -> ([GenType a b], Type.GenType a b) ;;
+1 splitFunTy _:_ _forall_ [a b] => Type.GenType a b -> ([Type.GenType a b], Type.GenType a b) ;;
1 splitSigmaTy _:_ _forall_ [a b] => Type.GenType a b -> ([a],[(Class.Class,Type.GenType a b)], Type.GenType a b) ;;
#if __GLASGOW_HASKELL__ <= 201
import PreludeGlaST
import PreludeGlaMisc
+import HandleHack
+import Ubiq
#else
import GlaExts
import Foreign
import IOHandle
import ST
import STBase
+import {-# SOURCE #-} Unique ( mkUniqueGrimily, Unique )
+import {-# SOURCE #-} UniqFM ( Uniquable(..) )
+#if __GLASGOW_HASKELL__ == 202
+import PrelBase ( Char (..) )
+#endif
#endif
-import HandleHack
import PrimPacked
-import Ubiq
#define hASH_TBL_SIZE 993
import ArrBase
import ST
import STBase
+#if __GLASGOW_HASKELL__ == 202
+import PrelBase ( Char(..) )
+#endif
#endif
\end{code}
_ByteArray
) where
-import Ubiq
#if __GLASGOW_HASKELL__ <= 200
import PreludeGlaST
import PreludeGlaMisc
+import HandleHack
+import Ubiq
#else
import GlaExts
import Foreign
import ST
import STBase
import Char (isDigit)
+# if __GLASGOW_HASKELL__ == 202
+import PrelBase ( Char(..) )
+# endif
#endif
import PrimPacked
import FastString
-import HandleHack
\end{code}