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

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