X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.datatypes%2Fscl%2FSimantics%2FGUID.scl;h=b6e3ede7922f832e1574bcfd9ba5f8d9e3a71347;hb=00dfdf1c3bd241ba9ace7ec4e375695e181a8963;hp=99fd4f4a0b9df15cd9e94df6778aa20f65c7fdd2;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.datatypes/scl/Simantics/GUID.scl b/bundles/org.simantics.datatypes/scl/Simantics/GUID.scl
index 99fd4f4a0..b6e3ede79 100644
--- a/bundles/org.simantics.datatypes/scl/Simantics/GUID.scl
+++ b/bundles/org.simantics.datatypes/scl/Simantics/GUID.scl
@@ -4,7 +4,11 @@ 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