diff options
| author |  Mark Clements <mark.clements@ki.se> | 2019-10-04 14:24:35 +0200 |
|---|---|---|
| committer | Mark Clements <mark.clements@ki.se> | 2019-10-04 14:24:35 +0200 |
| commit | 36544aaddd3d904c6b234f39951c9136bf5867ff (patch) | |
| tree | 6147f53c39982eb319d67efbaf23fc14eeef1989 | |
| parent | 8728f397bee2b567611dcd7a7c359c7e92159c1c (diff) | |
Add Step attribute to crange; fix tests for cnumber and crange
| -rw-r--r-- | lib/ur/basis.urs | 2 | ||||
| -rw-r--r-- | tests/html5_cforms.ur | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index d29bf6e6..a97c2855 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -1074,7 +1074,7 @@ val ctel : ctext val ccolor : ctext val cnumber : cformTag ([Source = source (option float), Min = float, Max = float, Step = float, Size = int] ++ boxAttrs ++ inputAttrs) [] -val crange : cformTag ([Source = source (option float), Min = float, Max = float, Size = int] ++ boxAttrs ++ inputAttrs) [] +val crange : cformTag ([Source = source (option float), Min = float, Max = float, Size = int, Step = float] ++ boxAttrs ++ inputAttrs) [] val cdate : cformTag ([Source = source string, Min = string, Max = string, Size = int] ++ boxAttrs ++ inputAttrs) [] val cdatetime : cformTag ([Source = source string, Min = string, Max = string, Size = int] ++ boxAttrs ++ inputAttrs) [] val cdatetime_local : cformTag ([Source = source string, Min = string, Max = string, Size = int] ++ boxAttrs ++ inputAttrs) [] diff --git a/tests/html5_cforms.ur b/tests/html5_cforms.ur index be07d07e..317a0638 100644 --- a/tests/html5_cforms.ur +++ b/tests/html5_cforms.ur @@ -9,8 +9,8 @@ fun main () : transaction page = d <- source ""; e <- source ""; f <- source ""; - g <- source 1.0; - h <- source 1.0; + g <- source (Some 1.0); + h <- source (Some 1.0); i <- source "#CCCCCC"; j <- source "2014/11/16"; k <- source "2014/11/16 12:30:45"; |