[project @ 1996-06-26 10:26:00 by partain]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsSyn.lhs

diff --git a/ghc/compiler/hsSyn/HsSyn.lhs b/ghc/compiler/hsSyn/HsSyn.lhs
index 5e46ea2..08537bc 100644 (file)
--- a/ghc/compiler/hsSyn/HsSyn.lhs
+++ b/ghc/compiler/hsSyn/HsSyn.lhs
@@ -15,16 +15,86 @@ module HsSyn (
        -- NB: don't reexport HsCore or HsPragmas;
        -- this module tells about "real Haskell"
 
-       HsSyn.. ,
-       HsBinds.. ,
-       HsDecls.. ,
-       HsExpr.. ,
-       HsImpExp.. ,
-       HsLit.. ,
-       HsMatches.. ,
-       HsPat.. ,
-       HsTypes..
-
+       EXP_MODULE(HsSyn) ,
+#if (! defined(REALLY_HASKELL_1_3)) || PATRICK_FIXES_MODULE_DOTDOT_THING
+       EXP_MODULE(HsBinds) ,
+       EXP_MODULE(HsDecls) ,
+       EXP_MODULE(HsExpr) ,
+       EXP_MODULE(HsImpExp) ,
+       EXP_MODULE(HsLit) ,
+       EXP_MODULE(HsMatches) ,
+       EXP_MODULE(HsPat) ,
+       EXP_MODULE(HsTypes)
+#else
+       ArithSeqInfo(..),
+       BangType(..),
+       Bind(..),
+       ClassDecl(..),
+       ConDecl(..),
+       DefaultDecl(..),
+       FixityDecl(..),
+       GRHS(..),
+       GRHSsAndBinds(..),
+       HsBinds(..),
+       HsExpr(..),
+       HsLit(..),
+       IE(..),
+       ImportDecl(..),
+       InPat(..),
+       InstDecl(..),
+       Match(..),
+       MonoBinds(..),
+       MonoType(..),
+       OutPat(..),
+       PolyType(..),
+       Qualifier(..),
+       Sig(..),
+       SpecDataSig(..),
+       SpecInstSig(..),
+       Stmt(..),
+       TyDecl(..),
+       bindIsRecursive,
+       cmpContext,
+       cmpMonoType,
+       cmpPolyType,
+       collectBinders,
+       collectMonoBinders,
+       collectMonoBindersAndLocs,
+       collectPatBinders,
+       collectTopLevelBinders,
+       extractCtxtTyNames,
+       extractMonoTyNames,
+       failureFreePat,
+       irrefutablePat,
+       irrefutablePats,
+       isConPat,
+       isLitPat,
+       negLiteral,
+       nullBind,
+       nullBinds,
+       nullMonoBinds,
+       patsAreAllCons,
+       patsAreAllLits,
+       pp_condecls,
+       pp_decl_head,
+       pp_dotdot,
+       pp_rbinds,
+       pp_tydecl,
+       pprContext,
+       pprExpr,
+       pprGRHS,
+       pprGRHSsAndBinds,
+       pprMatch,
+       pprMatches,
+       pprParendExpr,
+       pprParendMonoType,
+       pprParendPolyType,
+       ppr_bang,
+       print_it,
+       SYN_IE(ClassAssertion),
+       SYN_IE(Context),
+       SYN_IE(HsRecordBinds)
+#endif
      ) where
 
 IMP_Ubiq()