Mercurial > urweb

diff src/mono_print.sml @ 297:59dc042629b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pquery working with all four types of columns
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 13:29:01 -0400
parents 6e665c7c96f6
children 52d4c60518d4
line wrap: on
line diff
--- a/src/mono_print.sml	Sun Sep 07 12:58:33 2008 -0400
+++ b/src/mono_print.sml	Sun Sep 07 13:29:01 2008 -0400
@@ -130,6 +130,7 @@
       | ECon (_, pc, SOME e) => parenIf par (box [p_patCon env pc,
                                                   space,
                                                   p_exp' true env e])
+      | ENone _ => string "None"
       | ESome (_, e) => parenIf par (box [string "Some",
                                           space,
                                           p_exp' true env e])