src/Track.elm

@@ -8,8 +8,8 @@ import Iso8601
 type alias Point =
     { lat : Float
     , lon : Float
-    , ele : Maybe Float
-    , time : Maybe Time.Posix
+    , ele : Float
+    , time : Time.Posix
     }
 
 type alias Track =  List Point
@@ -25,8 +25,8 @@ timeDecoder = XD.andThen (\ts ->
 pointDecoder = XD.map4 Point
                (floatAttr "lat")
                (floatAttr "lon")
-               (XD.maybe (path ["ele"] (single XD.float)))
-               (XD.maybe (path ["time"] (single timeDecoder)))
+               (path ["ele"] (single XD.float))
+               (path ["time"] (single timeDecoder))
 
 
 gpxDecoder =

tests/Fixtures.elm

@@ -1,7 +1,6 @@
 module Fixtures exposing (threepoints, threepoints_expected)
 import Track exposing (Track, Point)
 import Time
-import Maybe
 
 
 threepoints = """
@@ -65,7 +64,7 @@ xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/
 """
 
 threepoints_expected  =
-    [ (Point 51.600643 -0.01856 (Just 64.8) (Just (Time.millisToPosix 1729669252256)))
-    , (Point 51.600679 -0.018179  (Just 65.5) (Just (Time.millisToPosix 1729669255259)))
-    , (Point 51.600697 -0.018064 (Just 66.2) (Just (Time.millisToPosix 1729669256231)))
+    [ (Point 51.600643 -0.01856  64.8 (Time.millisToPosix 1729669252256))
+    , (Point 51.600679 -0.018179  65.5 (Time.millisToPosix 1729669255259))
+    , (Point 51.600697 -0.018064 66.2 (Time.millisToPosix 1729669256231))
     ]

tests/TrackTest.elm

@@ -4,7 +4,6 @@ import Fixtures
 import Track exposing (Track, Point)
 import Test exposing (..)
 import Expect exposing (Expectation)
-import Time
 
 specs: Test
 specs =
@@ -14,19 +13,6 @@ specs =
               case Track.parse Fixtures.threepoints of
                   (Ok trk) -> Expect.equalLists Fixtures.threepoints_expected trk
                   _ -> Expect.fail "not ok"
-        , test "missing child ele node in track point" <|
-              \_ ->
-              let
-                  xml = String.replace
-                        "<ele>64.8</ele>"
-                        ""
-                        Fixtures.threepoints
-              in
-                  case Track.parse xml of
-                      Ok (p::pts) -> Expect.equal p (Point 51.600643 -0.01856 Nothing (Just (Time.millisToPosix 1729669252256)))
-                      Ok _ -> Expect.fail "empty list"
-                      (Err f) -> Expect.fail f
-
         , test "multiple trksegs are coalesced" <|
               \_ ->
               let