diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-02 18:20:15 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-02 18:20:15 -0400 |
| commit | feaf5cca383eef7caf103f6f3fd4a93725f6667b (patch) | |
| tree | 0baf5761c294a6cf6f12d93b16849bec6a4eb9cd /lib/ur | |
| parent | 231c4bfd8d410f01f98801dff7a159068c552c64 (diff) | |
Runtime URL and MIME type filtering
Diffstat (limited to 'lib/ur')
| -rw-r--r-- | lib/ur/basis.urs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index e5175a08..25ad2786 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -514,6 +514,7 @@ con tr = [Body, Tr] type url val bless : string -> url +val checkUrl : string -> option url val dyn : use ::: {Type} -> bind ::: {Type} -> unit -> tag [Signal = signal (xml body use bind)] body [] use bind @@ -600,6 +601,7 @@ val upload : formTag file [] [Value = string, Size = int] type mimeType val blessMime : string -> mimeType +val checkMime : string -> option mimeType val returnBlob : t ::: Type -> blob -> mimeType -> transaction t val blobSize : blob -> int |