timestamp is optional

(so is nearly everything else, but am doing one thing at a time)

src/Track.elm

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

tests/Fixtures.elm

@@ -1,6 +1,7 @@
 module Fixtures exposing (threepoints, threepoints_expected)
 import Track exposing (Track, Point)
 import Time
+import Maybe
 
 
 threepoints = """
@@ -64,7 +65,7 @@ xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/
 """
 
 threepoints_expected  =
-    [ (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))
+    [ (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)))
     ]

tests/TrackTest.elm

@@ -4,6 +4,7 @@ import Fixtures
 import Track exposing (Track, Point)
 import Test exposing (..)
 import Expect exposing (Expectation)
+import Time
 
 specs: Test
 specs =
@@ -13,6 +14,19 @@ 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