X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FFlag.scl;fp=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FFlag.scl;h=4cf5298722c42ad25455232200dc439ad4255d7d;hb=a42562ce5347643cf8303eb4c6acef4d65c9e210;hp=61eb7bd645ebe68cd6bc9b71e7ab0202d554fc6e;hpb=d615f9ce52ccde4f0de408d6345d033faa4590e6;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Flag.scl b/bundles/org.simantics.modeling/scl/Simantics/Flag.scl
index 61eb7bd64..4cf529872 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Flag.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Flag.scl
@@ -6,8 +6,9 @@ type Flag = Resource
 
 // FLAGS ---------------------------
 
+@deprecated "Unnecessary function."
 toFlag :: Resource -> Flag
-toFlag flag = (fromResource flag)
+toFlag flag = flag
 
 importJava "org.simantics.modeling.flags.MergeFlags" where
     @JavaName mergeFlags
@@ -34,21 +35,20 @@ joinFlags flag1 flag2 = do
         hasType STR.ConnectionJoin,
         hasStatement 
             DIA.JoinsFlag
-            (toResource flag1),
+            flag1,
         hasStatement
             DIA.JoinsFlag
-            (toResource flag2)
+            flag2
     ]
     ()
 
+@deprecated "Unnecessary function."
 flagToElement :: Flag -> Element
-flagToElement flag = do
-    flagResource = toResource flag
-    fromResource flagResource
+flagToElement flag = flag
 
 getFlags :: Diagram -> <ReadGraph> [Resource]
 getFlags dia = do
-    children = collectionToList (objects_ (singleObject (toResource dia) MOD.CompositeToDiagram) L0.ConsistsOf)
+    children = collectionToList (objects_ (singleObject dia MOD.CompositeToDiagram) L0.ConsistsOf)
     flags = filter (\x -> isInstanceOf x DIA.Flag) children
     flags