{-
rhs     ->  "=" exp rhs1
         |  gdexp+ rhs1
rhs1    -> ( "where" decls )?        
gdexp   ->  "|" exp0 "=" exp
-}

normalRhs, caseRhs :: HParser RightHandSide
normalRhs = rhs lexASG
normalRhs, caseRhs :: HParser RightHandSide
normalRhs = rhs lexASG
normalRhs = rhs lexASG