X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FSafeDynamic.scl;h=4ed2f4206bbd682b3b6138380bda59796c75c7e6;hp=b113f8a60d1a923533cbb16784fd8d9bf4cfa727;hb=6ee31cccdcf9e79844a9f813e6e835281cc35ea1;hpb=4d31ea9ef9aa6e2d5dc188b64dc76bbefc50bb88

diff --git a/bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl b/bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl
index b113f8a60..4ed2f4206 100644
--- a/bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl
+++ b/bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl
@@ -6,6 +6,9 @@ data SafeDynamic =
     @FieldNames [type_, value]
     SafeDynamic Type Dynamic
 
+instance Show SafeDynamic where
+    sb <+ SafeDynamic t v = sb << "SafeDynamic " <+ t
+
 toSafeDynamic :: Typeable a => a -> SafeDynamic
 toSafeDynamic val = SafeDynamic (typeOf val) (toDynamic val)