Daniel Barlow
8f9e89ffcd
"bounded contexts": use the shorter name for the souplesse concept and the longer name (only in MapTile) for OSM zoom levels
27 lines
572 B
Elm
27 lines
572 B
Elm
module Model exposing
|
|
(
|
|
Model
|
|
, TrackState(..)
|
|
, Drag(..)
|
|
, DragTarget(..)
|
|
)
|
|
import TileMap exposing (ZoomLevel, Coord)
|
|
import Point exposing (Point)
|
|
|
|
type DragTarget = Map | Graph | StartMark | EndMark | NoTarget
|
|
|
|
type Drag
|
|
= None
|
|
| Dragging DragTarget (Int, Int) (Int, Int)
|
|
|
|
type TrackState = Empty | Loading | Failure String | Present (List Point)
|
|
|
|
type alias Model =
|
|
{ centre: Coord
|
|
, zoom: ZoomLevel
|
|
, drag: Drag
|
|
, startTime : Float
|
|
, duration : Float
|
|
, markedTime : (Float, Float)
|
|
, track: TrackState }
|