X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.annotation.ui%2Fscl%2FSimantics%2FAnnotation2.scl;h=b06a8bdd41d8f810fe8448bae5935e79e037063b;hb=refs%2Fchanges%2F64%2F764%2F2;hp=cd3f851cbf8afd65de822d935d20ad179424d47f;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl b/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl index cd3f851cb..b06a8bdd4 100644 --- a/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl +++ b/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl @@ -104,13 +104,13 @@ getPossibleAnnotationType model name = do 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 -> () 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