remove HR from garmin activity

README.md

Remove HR from TCX file

Requirements

stack is required. On MacOS it can be installed via brew install stack.

Usage

Assuming there is an affected Garmin activity that you want to remove HR data from.

1. Export TCX file from the affected activity.

2. Delete the activity.

3. Execute the script.

./remove-hr.hs ./activity_16430490680.tcx > ./activity_16430490680_nohr.tcx

4. Upload the fixed TCX file.

remove-hr.hs

#!/usr/bin/env stack
-- stack script --resolver lts-20.15 --package xml

import Data.Maybe            (catMaybes)
import System.Environment    (getArgs)
import Text.XML.Light.Input
import Text.XML.Light.Output
import Text.XML.Light.Types

main :: IO ()
main = do
  filename <- head <$> getArgs
  xml <- parseXML <$> readFile filename
  mapM_ (putStrLn . showContent) . catMaybes $ filterHR <$> xml

filterHR :: Content -> Maybe Content
filterHR (Elem e) | qName (elName e) == "HeartRateBpm" = Nothing
filterHR (Elem e) | otherwise = Just . Elem $ e { elContent = catMaybes (filterHR <$> elContent e) }
filterHR x = Just x