From c6e8003e65ad5f97281da886c625b9cdc530967e Mon Sep 17 00:00:00 2001
From: Clifton Wood <clifton.wood@gmail.com>
Date: Mon, 8 Jul 2024 20:55:32 -0400
Subject: [PATCH] - Adds ability to parse date of the form yyyy-mm-dd

---
 lib/DateTime/Parse.rakumod | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/lib/DateTime/Parse.rakumod b/lib/DateTime/Parse.rakumod
index f2eb12b..47a3a04 100644
--- a/lib/DateTime/Parse.rakumod
+++ b/lib/DateTime/Parse.rakumod
@@ -6,13 +6,18 @@ my class X::DateTime::CannotParse is Exception {
 class DateTime::Parse is DateTime {
     grammar DateTime::Parse::Grammar {
         token TOP {
-            <dt=rfc3339-date> | <dt=rfc1123-date> | <dt=rfc850-date> | <dt=rfc850-var-date> | <dt=rfc850-var-date-two> | <dt=asctime-date> | <dt=nginx-date>
+            <dt=rfc3339-date> | <dt=rfc1123-date> | <dt=rfc850-date> | <dt=rfc850-var-date> | <dt=rfc850-var-date-two> | <dt=asctime-date> | <dt=nginx-date> |
+	    <dt=yyyy-mm-dd>
         }
 
         token rfc3339-date {
             <date=.date5> <[Tt \x0020]> <time=.time2>
         }
 
+        token yyyy-mm-dd {
+          <year=.D4-year> '-' <month=.D2> '-' <day=.D2>
+        }
+
         token nginx-date {
             <date=.date6> ':' <time=.time3>
         }
@@ -217,6 +222,10 @@ class DateTime::Parse is DateTime {
         method date6($/) { # e.g. 28/Mar/2018
             self!genericDate($/);
         }
+	
+	method yyyy-mm-dd ($/) {
+	    make DateTime.new( |self!genericDate($/) );
+	}
 
         my %timezones =
             UTC => 0,