-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