2024-10-27 18:16:50 +00:00
|
|
|
module Main where
|
|
|
|
|
2024-10-31 18:29:57 +00:00
|
|
|
import Control.Exception
|
|
|
|
import Track(parseFile)
|
|
|
|
import Data.List as List
|
|
|
|
|
2024-10-27 18:16:50 +00:00
|
|
|
main :: IO ()
|
2024-10-31 18:29:57 +00:00
|
|
|
main = do
|
|
|
|
points <- Track.parseFile "track.gpx"
|
|
|
|
putStrLn ("loaded " ++ (show (List.length points)))
|