Mercurial > urweb

comparison src/mono_opt.sml @ 1755:e9587120831a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Run-time CSS style validation
author Adam Chlipala <adam@chlipala.net>
date Sun, 06 May 2012 16:08:48 -0400
parents 277480862cef
children e8c668e518fb
comparison
equal deleted inserted replaced
1754:a1380fc15cb5 1755:e9587120831a
127 val checkCssUrl = CharVector.all (fn ch => Char.isAlphaNum ch 127 val checkCssUrl = CharVector.all (fn ch => Char.isAlphaNum ch
128 orelse ch = #":" 128 orelse ch = #":"
129 orelse ch = #"/" 129 orelse ch = #"/"
130 orelse ch = #"." 130 orelse ch = #"."
131 orelse ch = #"_" 131 orelse ch = #"_"
132 orelse ch = #"+"
132 orelse ch = #"-" 133 orelse ch = #"-"
133 orelse ch = #"%" 134 orelse ch = #"%"
134 orelse ch = #"?" 135 orelse ch = #"?"
135 orelse ch = #"&" 136 orelse ch = #"&"
136 orelse ch = #"=" 137 orelse ch = #"="