org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl

   1 import "Simantics/DB"
   2 import "Simantics/Variables"
   3
   4 districtNetworkProfileStyle :: String -> Resource -> <ReadGraph> (String, String, String)
   5 districtNetworkProfileStyle relation element = do
   6     rel = possibleResource relation
   7     result = match rel with
   8         Just rel -> do
   9             match possibleRelatedValue element rel with
  10                 Just res -> res
  11                 Nothing -> ""
  12         Nothing -> ""
  13     ("", result, "")