all = searchByType model ANNO.AnnotationType
named = filter (\x -> (getAnnotationNameFromType x) == name) all
if ((length named) == 1)
- then Just (fromResource $ named!0)
+ then Just (named!0)
else Nothing
setAnnotationPropertyValue :: AnnotationPropertyRelation -> Resource -> String -> String -> <WriteGraph> ()
setAnnotationPropertyValue annotation resource property newValue = do
resourceUri = uriOf resource
- annotationName = DB.nameOf (toResource annotation)
+ annotationName = DB.nameOf annotation
completeUri = resourceUri + "#" + annotationName + "#" + property + "#HasDisplayValue"
propertyVariable = variable completeUri
setValue propertyVariable newValue