Show instance for SafeDynamic

refs #7839

Change-Id: Ib84dceb46e1d43666b8f089e75c79e52f7bc3390

diff --git a/bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl b/bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl
index b113f8a60d1a923533cbb16784fd8d9bf4cfa727..4ed2f4206bbd682b3b6138380bda59796c75c7e6 100644 (file)
--- 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
 
     @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)
 
 toSafeDynamic :: Typeable a => a -> SafeDynamic
 toSafeDynamic val = SafeDynamic (typeOf val) (toDynamic val)