Set input type to text
Some checks reported errors
continuous-integration/drone/push Build was killed

This commit is contained in:
Valentin Brandl 2019-10-27 16:29:05 +01:00
parent 823a523102
commit b484bdef79
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D

View File

@ -10,7 +10,17 @@ module Main exposing
import Browser import Browser
import Data exposing (Url, hostname, toUrl) import Data exposing (Url, hostname, toUrl)
import Html exposing (Html, fieldset, input, label) import Html exposing (Html, fieldset, input, label)
import Html.Attributes exposing (autofocus, for, id, placeholder, readonly, style, value) import Html.Attributes
exposing
( autofocus
, for
, id
, placeholder
, readonly
, style
, type_
, value
)
import Html.Events exposing (onInput) import Html.Events exposing (onInput)
import Parse exposing (parseUrl) import Parse exposing (parseUrl)
@ -62,7 +72,7 @@ view state =
, value state.url , value state.url
, onInput UrlChange , onInput UrlChange
, autofocus True , autofocus True
, style "border" "1px solid #595959" , type_ "text"
] ]
) )
[] []
@ -72,7 +82,7 @@ view state =
[ id "output" [ id "output"
, readonly True , readonly True
, value (displayMUrl state.parsed) , value (displayMUrl state.parsed)
, style "border" "1px solid #595959" , type_ "text"
] ]
) )
[] []