From 070ae5842f963b816aae29514bcb6460c2e4ae55 Mon Sep 17 00:00:00 2001 From: Brian Hicks Date: Wed, 23 Sep 2020 08:07:05 -0500 Subject: [PATCH] yeah, decided I don't like this --- src/League.elm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/League.elm b/src/League.elm index 7b3e8ed..a21e6c9 100644 --- a/src/League.elm +++ b/src/League.elm @@ -95,8 +95,7 @@ addPlayer player (League league) = League { league | players = Dict.insert player.name player league.players } -{-| Chesterton's export --} +{-| -} updatePlayer : Player -> League -> League updatePlayer = addPlayer @@ -270,8 +269,7 @@ finishMatch outcome league = |> clearMatch -{-| Chesterton's export --} +{-| -} playInMatches : Int playInMatches = 5 @@ -296,8 +294,7 @@ kFactor player = Elo.sensitiveKFactor // 2 -{-| Chesterton's export --} +{-| -} higherRankedPlayer : Player -> Player -> Player higherRankedPlayer a b = if a.rating > b.rating then @@ -307,8 +304,7 @@ higherRankedPlayer a b = b -{-| Chesterton's export --} +{-| -} clearMatch : League -> League clearMatch (League league) = League { league | currentMatch = Nothing }