replace foo >>= return . bar with <&>

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)