renderScores :: [UserScore] -> Html
{-
renderScores scores = table $ do
    tr $ do
        th ""
        th "Name"
        th "Points"
    mapM_ row $ zip [1..] $ reverse $ sort scores
    where
    row :: (Int, UserScore) -> Html
    row (points, us) = tr $ do
        td $ do
            toHtml points
            ": "
        td $ a ! href (toValue $ "http://app.strava.com/athletes/" ++ (show $ uid us)) $ toHtml $ name us
        td $ toHtml $ userScore us
-}
renderScores scores = ol $ do
    mapM_ row $ reverse $ sort scores
    where
    row us = li $ do
        a ! href (toValue $ "http://app.strava.com/athletes/" ++ (show $ uid us)) $ toHtml $ name us
        _ <- ": "
        td $ toHtml $ userScore us
        _ <- " points ("
        toHtml (days us)
        _ <- " days, "
        toHtml (floor $ miles us :: Int)
        " miles)"
renderScores :: [UserScore] -> Html
renderScores scores = ol $ do
    mapM_ row $ reverse $ sort scores
    where
    row us = li $ do
        a ! href (toValue $ "http://app.strava.com/athletes/" ++ (show $ uid us)) $ toHtml $ name us
        _ <- ": "
        td $ toHtml $ userScore us
        _ <- " points ("
        toHtml (days us)
        _ <- " days, "
        toHtml (floor $ miles us :: Int)
        " miles)"
renderScores scores = ol $ do
    mapM_ row $ reverse $ sort scores
    where
    row us = li $ do
        a ! href (toValue $ "http://app.strava.com/athletes/" ++ (show $ uid us)) $ toHtml $ name us
        _ <- ": "
        td $ toHtml $ userScore us
        _ <- " points ("
        toHtml (days us)
        _ <- " days, "
        toHtml (floor $ miles us :: Int)
        " miles)"