Mercurial > urweb

diff src/cjrize.sml @ 577:3d56940120b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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/cjrize.sml	Tue Dec 30 09:43:45 2008 -0500
+++ b/src/cjrize.sml	Tue Dec 30 10:49:42 2008 -0500
@@ -120,6 +120,7 @@
                 in
                     ((L'.TOption t, loc), sm)
                 end
+              | L.TSource => ((L'.TFfi ("Basis", "int"), loc), sm)
               | L.TSignal _ => raise Fail "Cjrize: TSignal remains"
     in
         cify IM.empty x