diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-07-24 10:51:48 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-07-24 10:51:48 -0400 |
| commit | 68d8d8f43e4472070152b583603a2b8c18613ab2 (patch) | |
| tree | bfaa3bcf6138aaf3cec080612c3fd413edd070e2 | |
| parent | d9b2b05e66e65374bcf469088126461614c67b28 (diff) | |
<image>
| -rw-r--r-- | lib/ur/basis.urs | 6 | ||||
| -rw-r--r-- | src/monoize.sml | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index cabac068..ece4bfef 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -797,6 +797,12 @@ val submit : ctx ::: {Unit} -> use ::: {Type} -> tag ([Value = string, Action = $use -> transaction page] ++ boxAttrs) ([Form] ++ ctx) ([Form] ++ ctx) use [] +val image : ctx ::: {Unit} -> use ::: {Type} + -> [[Form] ~ ctx] => + unit + -> tag ([Src = url, Width = int, Height = int, Alt = string, Action = $use -> transaction page] ++ boxAttrs) + ([Form] ++ ctx) ([Form] ++ ctx) use [] + val label : bodyTag ([For = string, Accesskey = string] ++ tableAttrs) diff --git a/src/monoize.sml b/src/monoize.sml index 06a5060c..337e198c 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3258,6 +3258,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = end | "submit" => normal ("input type=\"submit\"", NONE, NONE) + | "image" => normal ("input type=\"image\"", NONE, NONE) | "button" => normal ("input type=\"submit\"", NONE, NONE) | "hidden" => input "hidden" |