count (every second)
port updates = lakesJsonSigResp : Signal (Http.Response String) |> lift U.respToMaybe : Signal (Maybe String) |> lift (U.concatMap Json.fromString) : Signal (Maybe Json.Value) |> lift (U.map toLakes) : Signal (Maybe [Lake]) |> lift (U.map <| map toGeoUpdate . drop pos . fst . PureRandom.shuffle seed) : Signal (Maybe [GeoUpdate (StatusUpdate {})]) |> U.extract [] : Signal [GeoUpdate (StatusUpdate {})] |> U.spool (every <| 3 * hour) : Signal (GeoUpdate (StatusUpdate {}))
port updates = lakesJsonSigResp Http.Success "[{\"county\":\"Douglas\",\"si..." : Signal (Http.Response String) |> lift U.respToMaybe Just "[{\"county\":\"Douglas\",\"si..." : Signal (Maybe String) |> lift (U.concatMap Json.fromString) Just (Json.Array [Json.Object {"county": "D..."}, ...]) : Signal (Maybe Json.Value) |> lift (U.map toLakes) Just [{ name = "Aaron", loc = { lat = ... }}, ...] : Signal (Maybe [Lake]) |> lift (U.map <| map toGeoUpdate . drop pos . fst . PureRandom.shuffle seed) Just [{ status = "Lake Elbow", lat = ... }, ...] : Signal (Maybe [GeoUpdate (StatusUpdate {})]) |> U.extract [] [{ status = "Lake Elbow", lat = ... }, ...] : Signal [GeoUpdate (StatusUpdate {})] |> U.spool (every <| 3 * hour) { status = "Lake Elbow", lat = ... } : Signal (GeoUpdate (StatusUpdate {}))