--- /dev/null
+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