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=e3c62558c80f939e6fe6eb563f2644d93dee5b5e;hb=00803fe68b14b5dce310a5a88b9c2a55bd1c85e6;hp=2d46af9295ef2281e8256eb1a3b7e262214b55f8;hpb=b654d9f368d601565303bcf646fc4fbdfbc37090;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
index 2d46af92..e3c62558 100644
--- a/org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl
+++ b/org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl
@@ -1,13 +1,5 @@
-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
+include "Simantics/DB"
+include "Simantics/Variables"
+include "Simantics/Ontologies"
+include "Simantics/District"
+include "http://www.simantics.org/DistrictNetwork-1.0" as DN