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, "")