aws-spend-summary 0.2.0.0 → 0.2.0.1

raw patch · 2 files changed

+9/−10 lines, 2 filesdep ~basedep ~timePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, time

API changes (from Hackage documentation)

Files

• aws-spend-summary.cabal +4/−4
• src/AwsSpendSummary.hs +5/−6

@@ -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

@@ -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