diff src/mono_print.sml @ 577:3d56940120b1

Setting a source server-side
author Adam Chlipala <adamc@hcoop.net>
date Tue, 30 Dec 2008 10:49:42 -0500
parents ac947e2f29ff
children 1e589a60b86f
line wrap: on
line diff
--- a/src/mono_print.sml	Tue Dec 30 09:43:45 2008 -0500
+++ b/src/mono_print.sml	Tue Dec 30 10:49:42 2008 -0500
@@ -65,6 +65,7 @@
       | TOption t => box [string "option(",
                           p_typ env t,
                           string ")"]
+      | TSource => string "source"
       | TSignal t => box [string "signal(",
                           p_typ env t,
                           string ")"]