Set input type to text

2019-10-27 16:29:05 +01:00 · 2019-10-27 16:29:05 +01:00 · b484bdef79
commit b484bdef79
parent 823a523102
1 changed files with 13 additions and 3 deletions
--- a/frontend/src/Main.elm
+++ b/frontend/src/Main.elm
@ -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"
                ]
            )
            []