Set input type to text
Some checks reported errors
continuous-integration/drone/push Build was killed
Some checks reported errors
continuous-integration/drone/push Build was killed
This commit is contained in:
parent
823a523102
commit
b484bdef79
@ -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"
|
||||||
]
|
]
|
||||||
)
|
)
|
||||||
[]
|
[]
|
||||||
|
Loading…
Reference in New Issue
Block a user