Change hostname

This commit is contained in:
Valentin Brandl 2019-07-27 20:33:26 +02:00
parent b1b611326a
commit 504cd02ca0
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D
2 changed files with 4 additions and 4 deletions

View File

@ -1,9 +1,9 @@
module Data exposing (Provider(..), Url, pathSeparator, toHost, toUrl)
module Data exposing (Provider(..), Url, hostname, pathSeparator, toHost, toUrl)
hostname : String
hostname =
"https://cdn.hitsofcode.com/"
"https://gitcdn.tk/"
type Provider

View File

@ -1,7 +1,7 @@
module Main exposing (Model, Msg(..), init, main, update, view)
import Browser
import Data exposing (Url, toHost, toUrl)
import Data exposing (Url, hostname, toHost, toUrl)
import Html exposing (Html, br, div, h1, input, table, td, text, tr)
import Html.Attributes exposing (disabled, placeholder, style, value)
import Html.Events exposing (onInput)
@ -95,7 +95,7 @@ view state =
, br [] []
, renderMUrl state.parsed
]
, input (myStyle2 [ placeholder "https://host/<service>/<user>/<repo>/<gitref>/<file>", disabled True, value (displayMUrl state.parsed) ]) []
, input (myStyle2 [ placeholder "https://" ++ hostname ++ "/<service>/<user>/<repo>/<gitref>/<file>", disabled True, value (displayMUrl state.parsed) ]) []
]
]