saving

unfoldml · Oct 30, 2023 · da6f48b · da6f48b
1 parent cd7dc91
commit da6f48b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/ms-azure-api/src/MSAzureAPI/CostManagement.hs b/ms-azure-api/src/MSAzureAPI/CostManagement.hs
@@ -45,6 +45,13 @@ generateCostDetailsReport rid = MSA.post MSA.APManagement [
  , "generateCostDetailsReport"
  ] ("api-version" MSA.==: "2023-08-01")
 
+data CDRQueryResult = CDRQResult {
+ cdrqrLocation :: Text
+ } deriving (Show, Generic)
+instance A.FromJSON CDRQueryResult where
+ parseJSON = A.genericParseJSON (MSA.aesonOptions "cdrqr")
+
+
 data CDROptions = CDROptions {
  cdrTimePeriod :: CDRTimePeriod
  } deriving (Show, Generic)

diff --git a/ms-azure-api/src/MSAzureAPI/Internal/Common.hs b/ms-azure-api/src/MSAzureAPI/Internal/Common.hs
@@ -64,7 +64,7 @@ import Text.URI (URI, mkURI)
 -- ms-auth
 import MSAuth (OAuth2Token(..), AccessToken(..), ExchangeToken(..), RefreshToken(..), OAuth2Error, IdToken(..))
 -- req
-import Network.HTTP.Req (Req, runReq, HttpBody(..), HttpConfig(..), HttpException(..), defaultHttpConfig, req, Option, (=:), GET(..), POST(..), PUT(..), DELETE(..), Url, Scheme(..), urlQ, useHttpsURI, https, (/:), ReqBodyJson(..), NoReqBody(..), oAuth2Bearer, HttpResponse(..), jsonResponse, JsonResponse, lbsResponse, LbsResponse, bsResponse, BsResponse, responseBody)
+import Network.HTTP.Req (Req, runReq, HttpBody(..), HttpConfig(..), HttpException(..), defaultHttpConfig, req, Option, (=:), GET(..), POST(..), PUT(..), DELETE(..), Url, Scheme(..), urlQ, useHttpsURI, https, (/:), ReqBodyJson(..), NoReqBody(..), oAuth2Bearer, HttpResponse(..), jsonResponse, JsonResponse, lbsResponse, LbsResponse, bsResponse, BsResponse, responseBody, responseHeader)
 -- text
 import Data.Text (Text, pack, unpack)
 -- unliftio