X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.annotation.ui%2Fscl%2FSimantics%2FAnnotation2.scl;h=b06a8bdd41d8f810fe8448bae5935e79e037063b;hp=cd3f851cbf8afd65de822d935d20ad179424d47f;hb=a42562ce5347643cf8303eb4c6acef4d65c9e210;hpb=d615f9ce52ccde4f0de408d6345d033faa4590e6

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 -> <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