Make input readonly instead of disabled

This commit is contained in:
Valentin Brandl 2019-08-05 18:17:29 +02:00
parent ac9da4d245
commit 851697f900
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D

View File

@ -25,7 +25,7 @@ import Html
, text
, ul
)
import Html.Attributes exposing (disabled, href, placeholder, style, value)
import Html.Attributes exposing (href, placeholder, readonly, style, value)
import Html.Events exposing (onInput)
import Parse exposing (parseUrl)
import Ribbon exposing (ribbon)
@ -128,7 +128,7 @@ body state =
article myStyle
[ input (myStyle2 [ placeholder "GitHub/GitLab/Bitbucket URL", value state.url, onInput UrlChange ])
[]
, input (myStyle2 [ disabled True, value (displayMUrl state.parsed) ]) []
, input (myStyle2 [ readonly True, value (displayMUrl state.parsed) ]) []
, h2 myStyle
[ text "Caching" ]
, p myStyle