on 52182bc help sign in
project-m36/src/lib/ProjectM36/AttributeExpr.hs
7 lines 266 B history raw
1module ProjectM36.AttributeExpr where
2import ProjectM36.Base
3import ProjectM36.Attribute as A
5attributeName :: AttributeExprBase a -> AttributeName
6attributeName (AttributeAndTypeNameExpr nam _ _) = nam
7attributeName (NakedAttributeExpr attr) = A.attributeName attr