mappedComponentPropertyValue def propName r = match possibleMappedComponentVariable r with
Nothing -> def
Just mv -> match possiblePropertyValue mv propName with
mappedComponentPropertyValue def propName r = match possibleMappedComponentVariable r with
Nothing -> def
Just mv -> match possiblePropertyValue mv propName with