Removed uses of deprecated functions

[simantics/platform.git] / bundles / org.simantics.annotation.ui / scl / Simantics / Annotation2.scl

diff --git a/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl b/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl
index cd3f851cbf8afd65de822d935d20ad179424d47f..b06a8bdd41d8f810fe8448bae5935e79e037063b 100644 (file)
--- 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