-import "Simantics/DB"\r
-import "Simantics/Ontologies"\r
-\r
-importJava "org.simantics.datatypes.literal.GUID" where\r
- \r
- data GUID\r
-\r
-instance Show GUID where\r
- show guid = guidIndexString guid\r
-\r
-importJava "org.simantics.datatypes.literal.GUID" where\r
- @JavaName "BINDING"\r
- guidBinding :: Binding a\r
- @JavaName random\r
- randomGUID :: <Proc> GUID\r
- @JavaName indexString\r
- guidIndexString :: GUID -> String\r
- \r
-guidOf :: Resource -> <ReadGraph> GUID\r
-guidOf res = relatedValue_ res L0.identifier guidBinding\r
- \r
-possibleGUIDOf :: Resource -> <ReadGraph> Maybe GUID\r
-possibleGUIDOf res = possibleRelatedValue_ res L0.identifier guidBinding\r
-\r
-claimGUID :: Resource -> <WriteGraph, Proc> ()\r
-claimGUID res = do\r
- match possibleGUIDOf res with\r
- Nothing -> claimRelatedValueWithType_ res L0.identifier L0.GUID randomGUID guidBinding\r
+import "Simantics/DB"
+import "Simantics/Ontologies"
+
+importJava "org.simantics.datatypes.literal.GUID" where
+
+ data GUID
+
+instance Show GUID where
+ show guid = guidIndexString guid
+
+importJava "org.simantics.datatypes.literal.GUID" where
+ @JavaName "BINDING"
+ guidBinding :: Binding a
+ @JavaName random
+ randomGUID :: <Proc> GUID
+ @JavaName indexString
+ guidIndexString :: GUID -> String
+
+guidOf :: Resource -> <ReadGraph> GUID
+guidOf res = relatedValue_ res L0.identifier guidBinding
+
+possibleGUIDOf :: Resource -> <ReadGraph> Maybe GUID
+possibleGUIDOf res = possibleRelatedValue_ res L0.identifier guidBinding
+
+claimGUID :: Resource -> <WriteGraph, Proc> ()
+claimGUID res = do
+ match possibleGUIDOf res with
+ Nothing -> claimRelatedValueWithType_ res L0.identifier L0.GUID randomGUID guidBinding