Skip to content

Instantly share code, notes, and snippets.

@freakingawesome
Last active May 13, 2023 10:43
Show Gist options
  • Save freakingawesome/7f86ed7683cfeeec4557 to your computer and use it in GitHub Desktop.
Save freakingawesome/7f86ed7683cfeeec4557 to your computer and use it in GitHub Desktop.
import Html exposing (..)
import Html.App exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import Http
import Task exposing (Task)
import Json.Decode as Json exposing ((:=))
type Msg
= NoOp
| FetchData
| ErrorOccurred String
| DataFetched (List RepoInfo)
type alias RepoInfo =
{ id : Int
, name : String
}
type alias Model =
{ message : String
, repos : List RepoInfo
}
main = Html.App.program
{ init = init
, update = update
, view = view
, subscriptions = \_ -> Sub.none
}
init =
let
model =
{ message = "Hello, Elm!"
, repos = []
}
in
model ! []
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
NoOp ->
model ! []
FetchData ->
{ model | message = "Initiating data fetch!" } ! [fetchData]
ErrorOccurred errorMessage ->
{ model | message = "Oops! An error occurred: " ++ errorMessage } ! []
DataFetched repos ->
{ model | repos = repos, message = "The data has been fetched!" } ! []
view : Model -> Html Msg
view model =
let
showRepo repo =
li []
[ text ("Repository ID: " ++ (toString repo.id) ++ "; ")
, text ("Repository Name: " ++ repo.name)
]
in
div []
[ div [] [ text model.message ]
, button [ onClick FetchData ] [ text "Click to load nytimes repositories" ]
, ul [] (List.map showRepo model.repos)
]
repoInfoDecoder : Json.Decoder RepoInfo
repoInfoDecoder =
Json.object2
RepoInfo
("id" := Json.int)
("name" := Json.string)
repoInfoListDecoder : Json.Decoder (List RepoInfo)
repoInfoListDecoder =
Json.list repoInfoDecoder
fetchData : Cmd Msg
fetchData =
Http.get repoInfoListDecoder "https://api.github.com/users/nytimes/repos"
|> Task.mapError toString
|> Task.perform ErrorOccurred DataFetched
@vishnuixm
Copy link

Thank you for your awasome and detailed answer in stackoverflow. Its help me lot.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment