From 2fa16a8f27b1a8438ca2b0dff2fa8d361a76a389 Mon Sep 17 00:00:00 2001
From: Anthony Cicchetti <me@anthonycicchetti.com>
Date: Sun, 29 Sep 2019 16:15:48 -0400
Subject: [PATCH] Default to "today"

---
 src/Leaderboard.elm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/Leaderboard.elm b/src/Leaderboard.elm
index 3bfbb60..82fa572 100644
--- a/src/Leaderboard.elm
+++ b/src/Leaderboard.elm
@@ -72,6 +72,7 @@ type alias Score =
 type Msg
     = NewDate String
     | NewEntries (Result Http.Error (List Entry))
+    | ReceiveDate Date.Date
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )
@@ -92,11 +93,19 @@ update msg model =
         NewEntries (Err err) ->
             ( model, Cmd.none )
 
+        ReceiveDate date ->
+            ( model, getScores (Date.format "YYYY-MM-dd" date) )
+
 
 
 --- COMMANDS
 
 
+getTodayScores : Cmd Msg
+getTodayScores =
+    Task.perform ReceiveDate Date.today
+
+
 getScores : String -> Cmd Msg
 getScores newDate =
     Http.request
@@ -166,7 +175,7 @@ subscriptions model =
 init : () -> ( Model, Cmd Msg )
 init _ =
     ( Model "2019-09-29" [] Nothing ""
-    , getScores "2019-09-29"
+    , getTodayScores
     )