HsGuardsStruct.hs

module HsGuardsStruct where

import SrcLoc


data HsAlt e p ds
    = HsAlt SrcLoc p (HsRhs e) {-where-} ds
      deriving (Eq, Show)

data HsRhs e
    = HsBody e
    | HsGuard [(SrcLoc, e, e)]
      deriving (Eq, Show)