# HG changeset patch
# User Sergey Mironov <grrwlf@gmail.com>
# Date 1381140490 -14400
# Node ID f792a65440936a5838cac5d3bb2f2d61624056f7
# Parent  f1c211936557be068f04d067b409e20ee118cf15
Add show instance for 'id' type

diff -r f1c211936557 -r f792a6544093 lib/ur/basis.urs
--- a/lib/ur/basis.urs	Mon Dec 09 17:25:53 2013 -0500
+++ b/lib/ur/basis.urs	Mon Oct 07 14:08:10 2013 +0400
@@ -775,6 +775,7 @@
 type id
 val fresh : transaction id
 val giveFocus : id -> transaction unit
+val show_id : show id
 
 val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> [ctx ~ [Dyn]] => unit
           -> tag [Signal = signal (xml ([Dyn] ++ ctx) use bind)] ([Dyn] ++ ctx) [] use bind
diff -r f1c211936557 -r f792a6544093 src/monoize.sml
--- a/src/monoize.sml	Mon Dec 09 17:25:53 2013 -0500
+++ b/src/monoize.sml	Mon Oct 07 14:08:10 2013 +0400
@@ -1267,6 +1267,12 @@
             in
                 ((L'.EAbs ("s", s, s, (L'.ERel 0, loc)), loc), fm)
             end
+          | L.EFfi ("Basis", "show_id") =>
+            let
+                val s = (L'.TFfi ("Basis", "string"), loc)
+            in
+                ((L'.EAbs ("s", s, s, (L'.ERel 0, loc)), loc), fm)
+            end
           | L.EFfi ("Basis", "show_char") =>
             ((L'.EFfi ("Basis", "charToString"), loc), fm)
           | L.EFfi ("Basis", "show_bool") =>