Commit 2a34830d authored by Sophie Herold's avatar Sophie Herold 🏳🌈

Removes orders list since no server will implement

parent 45306ab2
Pipeline #901 passed with stage
in 8 minutes and 12 seconds
......@@ -113,10 +113,6 @@ acmePerformAccountKeyRollover newJWK = do
let obj = AcmeObjAccountKeyRollover accURL newJWK
resBody =<< httpsJwsPost AcmeDirectoryRequestKeyChange obj
-- | Account Orders
retrieveOrdersList :: URL -> CragT AcmeObjOrdersList
retrieveOrdersList url = resBody =<< httpsGet url
-- ** Certificate
-- | Create new application (handing in a certificate request)
acmePerformNewOrder :: AcmeObjNewOrder -> CragT (URL, AcmeObjOrder)
......
......@@ -44,8 +44,6 @@ data AcmeObjAccount = AcmeObjAccount
{ acmeObjAccountStatus :: String
, acmeObjAccountContact :: Maybe [URI]
, acmeObjAccountTermsOfServiceAgreed :: Maybe Bool
, acmeObjAccountOrders :: Maybe URL
-- ^ TODO: This should not be Maybe
} deriving (Show)
-- ** New Account
......@@ -87,11 +85,6 @@ data AcmeObjNewOrder = AcmeObjNewOrder
, acmeObjNewOrderNotAfter :: Maybe ZonedTime
} deriving (Show)
-- ** Orders List
data AcmeObjOrdersList = AcmeObjOrdersList
{ acmeObjOrdersListOrders :: [URL]
}
-- ** Identifier
-- | Identifier (original ACME standard only supports type /dns/)
data AcmeObjIdentifier = AcmeObjIdentifier
......@@ -176,7 +169,6 @@ concat <$>
, ''AcmeObjIdentifier
, ''AcmeObjNewOrder
, ''AcmeObjOrder
, ''AcmeObjOrdersList
, ''AcmeObjStubAccount
, ''ProblemDetail
]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment