project-m36-0.4: src/lib/ProjectM36/AttributeExpr.hs

module ProjectM36.AttributeExpr where
import ProjectM36.Base
import ProjectM36.Attribute as A

attributeName :: AttributeExprBase a -> AttributeName
attributeName (AttributeAndTypeNameExpr nam _ _) = nam
attributeName (NakedAttributeExpr attr) = A.attributeName attr