-include "Simantics/DB"\r
-import "http://www.simantics.org/Layer0-1.1" as L0\r
-\r
-@deprecated\r
-toResource :: Resource -> Resource\r
-toResource = id\r
-\r
-@deprecated\r
-fromResource :: Resource -> Resource\r
-fromResource = id\r
-\r
-labelOf :: Resource -> <ReadGraph> String\r
-labelOf entity = relatedValue2 entity L0.HasLabel\r
-\r
-"""Renames an entity."""\r
-rename :: Resource -> String -> <ReadGraph,WriteGraph> ()\r
-rename entity newName = do\r
- oldName = (nameOf entity)\r
- claimRelatedValue entity L0.HasName newName\r
- addCommentMetadata ("Renamed " + oldName + " to " + newName)\r
-\r
-importJava "org.simantics.db.layer0.util.RemoverUtil" where\r
- """Removes a given entity."""\r
- @JavaName remove\r
- remove :: Resource -> <WriteGraph> ()\r
-\r
-@deprecated\r
-remove_ :: Resource -> <WriteGraph> ()\r
-remove_ = remove\r
+include "Simantics/DB"
+import "http://www.simantics.org/Layer0-1.1" as L0
+
+@deprecated
+toResource :: Resource -> Resource
+toResource = id
+
+@deprecated
+fromResource :: Resource -> Resource
+fromResource = id
+
+labelOf :: Resource -> <ReadGraph> String
+labelOf entity = relatedValue2 entity L0.HasLabel
+
+"""Renames an entity."""
+rename :: Resource -> String -> <ReadGraph,WriteGraph> ()
+rename entity newName = do
+ oldName = (nameOf entity)
+ claimRelatedValue entity L0.HasName newName
+ addCommentMetadata ("Renamed " + oldName + " to " + newName)
+
+importJava "org.simantics.db.layer0.util.RemoverUtil" where
+ """Removes a given entity."""
+ @JavaName remove
+ remove :: Resource -> <WriteGraph> ()
+
+@deprecated
+remove_ :: Resource -> <WriteGraph> ()
+remove_ = remove