]> gerrit.simantics Code Review - simantics/platform.git/commitdiff
Show instance for SafeDynamic 38/1638/1
authorHannu Niemistö <hannu.niemisto@semantum.fi>
Thu, 22 Mar 2018 19:33:17 +0000 (21:33 +0200)
committerHannu Niemistö <hannu.niemisto@semantum.fi>
Thu, 22 Mar 2018 19:33:17 +0000 (21:33 +0200)
refs #7839

Change-Id: Ib84dceb46e1d43666b8f089e75c79e52f7bc3390

bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl

index b113f8a60d1a923533cbb16784fd8d9bf4cfa727..4ed2f4206bbd682b3b6138380bda59796c75c7e6 100644 (file)
@@ -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)