From 6ee31cccdcf9e79844a9f813e6e835281cc35ea1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Hannu=20Niemist=C3=B6?= Date: Thu, 22 Mar 2018 21:33:17 +0200 Subject: [PATCH] Show instance for SafeDynamic refs #7839 Change-Id: Ib84dceb46e1d43666b8f089e75c79e52f7bc3390 --- bundles/org.simantics.scl.runtime/scl/SafeDynamic.scl | 3 +++ 1 file changed, 3 insertions(+) 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) -- 2.43.2