CmdTrack (Track trackDryRun trackAddress trackLimit) ->
            liftIO $ cmdTrack trackDryRun trackAddress trackLimit today
...

cmdTrack :: Bool -> Maybe Text -> Maybe Limit -> Day -> IO ()
cmdTrack trackDryRun trackAddress trackLimit today =
    if trackDryRun then liftIO $ do
        possibleIssues <- getIssues (getIssueSamples trackAddress trackLimit today)
        case possibleIssues of
            Left err      -> hPutStrLn stderr err
            Right samples -> pprint $ UI.prettySamplesBySections samples
    else do
        possibleIssues <- getIssues (getIssueViews trackAddress trackLimit)
        case possibleIssues of
            Left err   -> hPutStrLn stderr err
            Right nvs' -> do
                _ <- pure $ updateTracks nvs'
                let nvsLength = show $ length nvs'
                putStrLn $ nvsLength ++ " issues copied to local base"
  where
      getIssues getter = do
          hPutStr stderr "fetching"
          possibleIssues <-
              fromEither <$> race
                  (runExceptT getter)
                  (forever $ hPutChar stderr '.' >> threadDelay 500000)
          hPutStrLn stderr ""
          pure possibleIssues