From 36544aaddd3d904c6b234f39951c9136bf5867ff Mon Sep 17 00:00:00 2001 From: Mark Clements Date: Fri, 4 Oct 2019 14:24:35 +0200 Subject: Add Step attribute to crange; fix tests for cnumber and crange --- lib/ur/basis.urs | 2 +- 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"; -- cgit v1.2.3