Skip to content

Commit

Permalink
yeah, decided I don't like this
Browse files Browse the repository at this point in the history
  • Loading branch information
BrianHicks committed Sep 23, 2020
1 parent f4d1df0 commit 070ae58
Showing 1 changed file with 4 additions and 8 deletions.
12 changes: 4 additions & 8 deletions src/League.elm
Expand Up @@ -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
Expand Down Expand Up @@ -270,8 +269,7 @@ finishMatch outcome league =
|> clearMatch


{-| Chesterton's export
-}
{-| -}
playInMatches : Int
playInMatches =
5
Expand All @@ -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
Expand All @@ -307,8 +304,7 @@ higherRankedPlayer a b =
b


{-| Chesterton's export
-}
{-| -}
clearMatch : League -> League
clearMatch (League league) =
League { league | currentMatch = Nothing }

0 comments on commit 070ae58

Please sign in to comment.