Mercurial > urweb
diff src/settings.sml @ 2024:6372a742ab04
Allow '+' char in blessMime
See this one [1] for an example
[1] - http://www.w3.org/TR/SVGTiny12/mimereg.html
| author | Sergey Mironov <grrwlf@gmail.com> |
|---|---|
| date | Thu, 05 Jun 2014 20:36:12 +0000 |
| parents | 403f0cc65b9c |
| children | 534577e429e1 |
line wrap: on
line diff
--- a/src/settings.sml Wed Jun 11 13:56:00 2014 -0400 +++ b/src/settings.sml Thu Jun 05 20:36:12 2014 +0000 @@ -465,7 +465,7 @@ val checkUrl = check (fn _ => true) url -val validMime = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"/" orelse ch = #"-" orelse ch = #".") +val validMime = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"/" orelse ch = #"-" orelse ch = #"." orelse ch = #"+") val validEnv = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"_" orelse ch = #".") val checkMime = check validMime mime