Expire terminal mutation identities by configured epoch

src/Nuthatch/Api.hs

@@ -196,6 +196,7 @@ instance ToJSON DeletePrefixResponse where
 data UploadResponse = UploadResponse
   { uploadResponseOperationId :: OperationId
   , uploadResponseResult      :: MutationResult
+  , uploadResponseIdempotencyWindowSeconds :: Integer
   }
   deriving stock (Eq, Show)
 
@@ -203,11 +204,14 @@ instance ToJSON UploadResponse where
   toJSON response = object
     [ "operation_id" .= uploadResponseOperationId response
     , "result" .= mutationResultText (uploadResponseResult response)
+    , "idempotency_window_seconds"
+        .= uploadResponseIdempotencyWindowSeconds response
     ]
 
 data DeleteResponse = DeleteResponse
   { deleteResponseOperationId :: OperationId
   , deleteResponseResult      :: MutationResult
+  , deleteResponseIdempotencyWindowSeconds :: Integer
   }
   deriving stock (Eq, Show)
 
@@ -215,6 +219,8 @@ instance ToJSON DeleteResponse where
   toJSON response = object
     [ "operation_id" .= deleteResponseOperationId response
     , "result" .= mutationResultText (deleteResponseResult response)
+    , "idempotency_window_seconds"
+        .= deleteResponseIdempotencyWindowSeconds response
     ]
 
 data Throws error