importJava "org.simantics.datatypes.literal.GUID" where\r
\r
data GUID\r
- \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