diff --git a/aws-spend-summary.cabal b/aws-spend-summary.cabal
--- a/aws-spend-summary.cabal
+++ b/aws-spend-summary.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               aws-spend-summary
-version:            0.2.0.0
+version:            0.2.0.1
 synopsis:
     Extract recent daily AWS costs
 description:
@@ -28,7 +28,7 @@
 library
     import:           deps
     build-depends:
-        base >=4.18.1.0 && <4.19
+        base >=4.18.1.0 && <4.20
       , amazonka >=2.0 && <2.1
       , amazonka-core >=2.0 && <2.1
       , amazonka-s3 >= 2.0 && <2.1
@@ -40,7 +40,7 @@
       , http-types >=0.12.4 && <0.13
       , lens >=5.2.3 && <5.4
       , text >=2.0.2 && < 2.2
-      , time >=1.12.2 && < 1.13
+      , time >=1.12.2 && < 1.15
       , timelens >=0.2.0.2 && <0.3
       , vector >=0.13.1.0 && <0.14
       , zlib >=0.6.3 && <0.8
@@ -51,7 +51,7 @@
     import:           deps
     main-is:          Main.hs
     build-depends:
-        base >=4.18.1.0 && <4.19
+        base >=4.18.1.0 && <4.20
       , aws-spend-summary
       , optparse-applicative >=0.18.1.0 && < 0.19
     hs-source-dirs:   app
diff --git a/src/AwsSpendSummary.hs b/src/AwsSpendSummary.hs
--- a/src/AwsSpendSummary.hs
+++ b/src/AwsSpendSummary.hs
@@ -122,12 +122,11 @@
              return . extractCostData $ rawCsv
     )
     where mnthStr = formatTime defaultTimeLocale "%B" startTime
-          billingPeriod = formatTime defaultTimeLocale "%_Y-%m" startTime
-          fullPath = pathPrefix
-                  <> "/" <> costReportName
-                  <> "/data"
-                  <> "/BILLING_PERIOD=" <> pack billingPeriod
-                  <> "/" <> costReportName <> "-00001.csv.gz"
+          fullPath = pathPrefix <> "/" <> costReportName <> "/data"
+                                <> pack (formatTime defaultTimeLocale
+                                                    "/BILLING_PERIOD=%_Y-%m/"
+                                                    startTime)
+                                <> costReportName <> "-00001.csv.gz"
           handleJust = maybe (return ())
 
 extractCostData :: LBS.ByteString -> Vector Cost