defmodule Resource do
  def not_fetched, do: %{ state: :notFetched }

  def loading, do: %{ state: :loading }

  def loaded(val), do: %{ state: :loaded, value: val }

  def error(err), do: %{ state: :error, error: err }
end

defmodule Question do
  def new presentation, text do
    %{ presentation: presentation, asked: "just now", text: text }
  end

  def view question do
    """
    Asked ${ question.asked }

    ${ question.text }
    """
  end
end

defmodule App do
  def init do
    %{ questions: Resource.not_fetched }
  end

  def view %{ :questions => resource } do
    case resource do
      Resource.not_fetched ->
        "Please wait while we connect to the application API."

      Resource.loading ->
        "Loading..."

      Resource.loaded questions ->
        questions
          |> Enum.map( &Question.view/1 )
          |> Enum.join( "\n" )

      Resource.error err ->
        "ERROR: ${err}"
    end
  end
end

App.init
  |> App.view
  |> IO.puts