update TODO

README.md

@@ -59,5 +59,5 @@ _Do not look below this line_
 * do we even need Track? will it ever be anything more than a collection
  of Points?
 * [done] need a real gpx file with namespace decls before we can parse power and stuff
-* tests seem to pass without <gpx> element?
-* stop returning bogus data when missing required elements (e.g. time)
+* [done] tests seem to pass without <gpx> element?
+* [done] stop returning bogus data when missing required elements (e.g. time)

lib/Track.hs

@@ -25,6 +25,7 @@ import Data.Time.ISO8601 qualified
 import Debug.Trace (trace, traceShow)
 import Text.XML
 import Text.XML.Cursor as Cursor
+import Data.Functor((<&>))
 
 data Pos = Pos Float Float deriving (Show, Eq)
 
@@ -91,10 +92,10 @@ elToPoint c =
               Right $
                 Point
                   (Pos lat lon)
-                  (listToMaybe ele >>= return . asFloat)
+                  (listToMaybe ele <&> asFloat)
                   utime
-                  (listToMaybe cadence >>= return . asInt)
-                  (listToMaybe power >>= return . asInt)
+                  (listToMaybe cadence <&> asInt)
+                  (listToMaybe power <&> asInt)
                   Nothing
       where
         asFloat v = (read (Data.Text.unpack v) :: Float)