alexspurling

import Html exposing (div, button, text)
import Html.Events exposing (onClick)
import StartApp.Simple as StartApp
import Random exposing (Seed)

type alias Model = { seed : Seed, values : List Int }

initialModel : Model
initialModel =
  { seed = (Random.initialSeed 0), 

alexspurling

type alias Answer =
    { name : String,
      imgUrl : String
    }

decodeAnswers : Json.Decoder (List Answer)
decodeAnswers =
  let
    imageUrlDecoder = ("url" := Json.string)

alexspurling

update : Msg -> Model -> Model
update msg model =
  case msg of
    CanvasResized canvasSize ->
      model
        |> :canvas
        |> updateCanvasSize canvasSize
        |> updateVisibleTiles

alexspurling

/*
 [The "BSD licence"]
 Copyright (c) 2013 Terence Parr
 All rights reserved.

 Redistribution and use in source and binary forms, with or without
 modification, are permitted provided that the following conditions
 are met:
 1. Redistributions of source code must retain the above copyright
    notice, this list of conditions and the following disclaimer.

alexspurling

import java.time.ZoneId;
import java.time.ZonedDateTime;
import java.time.temporal.ChronoUnit;

/*
output:

Earliest midpoint in LA: 1984-01-26T17:13-08:00[America/Los_Angeles]
Latest midpoint in LA: 1984-01-27T05:13-08:00[America/Los_Angeles]