Show instance for SafeDynamic

[simantics/platform.git] / bundles / org.simantics.scl.runtime / scl / SafeDynamic.scl

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
 
+instance Show SafeDynamic where
+    sb <+ SafeDynamic t v = sb << "SafeDynamic " <+ t
+
 toSafeDynamic :: Typeable a => a -> SafeDynamic
 toSafeDynamic val = SafeDynamic (typeOf val) (toDynamic val)