setAttr :: String -> AttributeValue -> Ext Record -> Ext Record
setAttr name value rec =
    rec {getAttributes = M.insert name value (getAttributes rec)}
setAttr :: String -> AttributeValue -> Ext Record -> Ext Record
setAttr name value rec =
    rec {getAttributes = M.insert name value (getAttributes rec)}
setAttr name value rec =
    rec {getAttributes = M.insert name value (getAttributes rec)}