ReAssocBase

Plain source file: base/defs/ReAssocBase.hs (2004-12-06)

ReAssocBase is imported by: Main{-pfe/pfe.hs-}, ReAssocProp.

module ReAssocBase(module ReAssocBase,module ReAssoc) where
import Syntax(HsExpI,HsPatI,HsDeclI,HsIdentI(..))
import ReAssoc
import ReAssocBaseStruct()
import DefinedNamesBase()
import Recursive
import HasBaseStruct(hsInfixApp,hsPInfixApp)

{-
Knot-tying definitions for the base syntax
-}

instance Eq i => ReAssoc i (HsExpI  i) where reAssoc = reAssocRec
instance Eq i => ReAssoc i (HsPatI  i) where reAssoc = reAssocRec
instance Eq i => ReAssoc i (HsDeclI i) where reAssoc = reAssocRec

instance HasInfixDecls i (HsDeclI i)   where getInfixDecls = getInfixDeclsRec

instance HasInfixApp i (HsExpI i) (HsExpI i) where
  infixApp = hsInfixApp
  isInfixApp = isInfixApp . struct

instance HasInfixApp i (HsPatI i) (HsPatI i) where
  infixApp p1 (HsCon c) p2 = hsPInfixApp p1 c p2
  isInfixApp = isInfixApp . struct

Index

(HTML for this module was generated on 2006-08-12. About the conversion tool.)