Cryptobase.elm

module Main exposing (..)

import Html exposing (..)
import Html.Events exposing (..)


type alias Model =
    { rate : String
    }


initData : Model
initData =
    { rate = "0"
    }


dummyData : Model
dummyData =
    { rate = "dummy"
    }


type Msg
    = GetData


update : Msg -> Model -> Model
update msg model =
    case msg of
        GetData ->
            dummyData


view : Model -> Html Msg
view model =
    div []
        [ h3 [] [ text ("Current rate = " ++ model.rate) ]
        , button [ onClick GetData ] [ text "Get Data" ]
        ]


main =
    Html.beginnerProgram { model = initData, view = view, update = update }