diff options
-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" |