[project @ 1996-07-15 11:32:34 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 08537bc..e165b3c 100644 (file)
--- a/ghc/compiler/hsSyn/HsSyn.lhs
+++ b/ghc/compiler/hsSyn/HsSyn.lhs
@@ -16,7 +16,6 @@ module HsSyn (
        -- this module tells about "real Haskell"
 
        EXP_MODULE(HsSyn) ,
-#if (! defined(REALLY_HASKELL_1_3)) || PATRICK_FIXES_MODULE_DOTDOT_THING
        EXP_MODULE(HsBinds) ,
        EXP_MODULE(HsDecls) ,
        EXP_MODULE(HsExpr) ,
@@ -25,76 +24,6 @@ module HsSyn (
        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()