X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.district.network.ontology%2Fscl%2FSimantics%2FDistrict%2FSCLMain.scl;fp=org.simantics.district.network.ontology%2Fscl%2FSimantics%2FDistrict%2FSCLMain.scl;h=2d46af9295ef2281e8256eb1a3b7e262214b55f8;hb=49c61f355ed55291624a9afb6ece3e1b7a31659e;hp=0000000000000000000000000000000000000000;hpb=a9a47a38306352ab8362c8a7341dbeb54ed2a791;p=simantics%2Fdistrict.git

diff --git a/org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl b/org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl
new file mode 100644
index 00000000..2d46af92
--- /dev/null
+++ b/org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl
@@ -0,0 +1,13 @@
+import "Simantics/DB"
+import "Simantics/Variables"
+
+districtNetworkProfileStyle :: String -> Resource -> <ReadGraph> (String, String, String)
+districtNetworkProfileStyle relation element = do
+    rel = possibleResource relation
+    result = match rel with
+        Just rel -> do
+            match possibleRelatedValue element rel with
+                Just res -> res
+                Nothing -> ""
+        Nothing -> ""
+    ("", result, "")
\ No newline at end of file