18 lines
302 B
Haskell
18 lines
302 B
Haskell
|
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
|