HabitatMap/AirCasting

module Data.Markers exposing (SessionMarkerData, toSessionMarkerData)

import Data.HeatMapThresholds exposing (HeatMapThresholds, rangeIntFor)
import Data.Session exposing (Location)
import RemoteData exposing (WebData)


type alias SessionMarkerData =
    { streamId : Int
    , location : Location
    , heatLevel : Int
    }


toSessionMarkerData : Location -> Int -> Maybe Float -> WebData HeatMapThresholds -> SessionMarkerData
toSessionMarkerData location streamId maybeAverage heatMapThresholds =
    { location = location
    , streamId = streamId
    , heatLevel = rangeIntFor (Maybe.map round maybeAverage) heatMapThresholds
    }