module Track where
import Data.Time
import qualified Data.List
data Pos = Pos Float Float


data Point = Point Pos UTCTime

type Track = [Point]

parse :: String -> Track
parse str = [
  -- Point (Pos 516 0) (UTCTime (toEnum  60631) 43200)
  ]

length :: Track -> Int
length trk = Data.List.length trk