Mercurial > urweb

diff src/monoize.sml @ 1929:f792a6544093

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add show instance for 'id' type
author Sergey Mironov <grrwlf@gmail.com>
date Mon, 07 Oct 2013 14:08:10 +0400
parents f1c211936557
children 98895243b5b6
line wrap: on
line diff
--- 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") =>