add date and time fields

Author: Michiel Nugter

src/Element/Input.elm

@@ -3,6 +3,7 @@ module Element.Input exposing
     , button
     , checkbox, defaultCheckbox
     , text, multiline
+    , date, time
     , Placeholder, placeholder
     , username, newPassword, currentPassword, email, search, spellChecked
     , slider, Thumb, thumb, defaultThumb
@@ -1407,6 +1408,40 @@ text =
         , autofill = Nothing
         }
 
+{-| -}
+date :
+    List (Attribute msg)
+    ->
+        { onChange : String -> msg
+        , text : String
+        , placeholder : Maybe (Placeholder msg)
+        , label : Label msg
+        }
+    -> Element msg
+date =
+    textHelper
+        { type_ = TextInputNode "date"
+        , spellchecked = False
+        , autofill = Nothing
+        }
+
+{-| -}
+time :
+    List (Attribute msg)
+    ->
+        { onChange : String -> msg
+        , text : String
+        , placeholder : Maybe (Placeholder msg)
+        , label : Label msg
+        }
+    -> Element msg
+time =
+    textHelper
+        { type_ = TextInputNode "time"
+        , spellchecked = False
+        , autofill = Nothing
+        }
+
 
 {-| If spell checking is available, this input will be spellchecked.
 -}