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

View File

@ -10,7 +10,17 @@ module Main exposing
import Browser
import Data exposing (Url, hostname, toUrl)
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 Parse exposing (parseUrl)
@ -62,7 +72,7 @@ view state =
, value state.url
, onInput UrlChange
, autofocus True
, style "border" "1px solid #595959"
, type_ "text"
]
)
[]
@ -72,7 +82,7 @@ view state =
[ id "output"
, readonly True
, value (displayMUrl state.parsed)
, style "border" "1px solid #595959"
, type_ "text"
]
)
[]