fixup! Add custom formatter for HTTP date format

spec/std/http/http_spec.cr

@@ -40,12 +40,12 @@ describe HTTP do
   describe "generates HTTP date" do
     it "without time zone" do
       time = Time.utc(1994, 11, 6, 8, 49, 37, nanosecond: 0)
-      HTTP.format_time(time).should eq("Sun, 6 Nov 1994 08:49:37 GMT")
+      HTTP.format_time(time).should eq("Sun, 06 Nov 1994 08:49:37 GMT")
     end
 
     it "with local time zone" do
       time = Time.new(1994, 11, 6, 8, 49, 37, nanosecond: 0, location: Time::Location.load("Europe/Berlin"))
-      HTTP.format_time(time).should eq(time.to_utc.to_s("%a, %-d %b %Y %H:%M:%S GMT"))
+      HTTP.format_time(time).should eq(time.to_utc.to_s("%a, %d %b %Y %H:%M:%S GMT"))
     end
   end
 

src/time/format/custom/http_date.cr

@@ -28,7 +28,7 @@ struct Time::Format
     # *time* is always converted to UTC.
     def self.format(time : Time, io : IO)
       formatter = Formatter.new(time.to_utc, io)
-      formatter.rfc_2822(time_zone_gmt: true)
+      formatter.rfc_2822(time_zone_gmt: true, two_digit_day: true)
       io
     end
 

src/time/format/custom/rfc_2822.cr

@@ -26,10 +26,14 @@ struct Time::Format
   end
 
   module Pattern
-    def rfc_2822(time_zone_gmt = false)
+    def rfc_2822(time_zone_gmt = false, two_digit_day = false)
       cfws?
       short_day_name_with_comma?
-      day_of_month
+      if two_digit_day
+        day_of_month_zero_padded
+      else
+        day_of_month
+      end
       cfws
       short_month_name
       cfws