Mercurial > urweb

comparison src/demo.sml @ 1761:f8ddaa296115

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix hyphenation for demos; parse CSS class 'table' as 'tabl'
author Adam Chlipala <adam@chlipala.net>
date Sun, 13 May 2012 14:27:29 -0400
parents c414850f206f
children 3d922a28370b
comparison
equal deleted inserted replaced
1760:74fcc977a13d 1761:f8ddaa296115
422 case #kind rule of 422 case #kind rule of
423 Settings.Exact => () 423 Settings.Exact => ()
424 | Settings.Prefix => TextIO.output (outf, "*"); 424 | Settings.Prefix => TextIO.output (outf, "*");
425 TextIO.output (outf, " "); 425 TextIO.output (outf, " ");
426 TextIO.output (outf, #to rule); 426 TextIO.output (outf, #to rule);
427 if #hyphenate rule then
428 TextIO.output (outf, " [-]")
429 else
430 ();
427 TextIO.output (outf, "\n"))) (#rewrites combined); 431 TextIO.output (outf, "\n"))) (#rewrites combined);
428 filters "url" (#filterUrl combined); 432 filters "url" (#filterUrl combined);
429 filters "mime" (#filterMime combined); 433 filters "mime" (#filterMime combined);
430 app (fn path => 434 app (fn path =>
431 (TextIO.output (outf, "safeGet "); 435 (TextIO.output (outf, "safeGet ");