truffle.elm

module Main exposing (..)

import Html exposing (Html, text, div, img, button)
import Html.Events exposing (..)
import Http
import Json.Decode as Decode


type Msg
    = TruffleFeed (Result Http.Error String)
    | LoadTruffles


getTruffles : String -> Cmd Msg
getTruffles url =
    let
        request =
            Http.get url decodeTruffles
    in
        Http.send TruffleFeed request


decodeTruffles : Decode.Decoder String
decodeTruffles =
    Decode.string



---- MODEL ----


type alias Model =
    {}


init : ( Model, Cmd Msg )
init =
    ( {}, Cmd.none )



---- UPDATE ----


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        LoadTruffles ->
            ( model, getTruffles "/feed.json" )

        TruffleFeed (Ok _) ->
            ( model, Cmd.none )

        TruffleFeed (Err _) ->
            ( model, Cmd.none )



---- VIEW ----


view : Model -> Html Msg
view model =
    div []
        [ button [ onClick LoadTruffles ] [ text "Load Truffles!" ]
        ]



---- PROGRAM ----


main : Program Never Model Msg
main =
    Html.program
        { view = view
        , init = init
        , update = update
        , subscriptions = always Sub.none
        }