Add to_string functions for tokens

src/spacetraders_sdk.gleam

@@ -31,11 +31,11 @@ pub type PagedData(data) {
 }
 
 pub opaque type AccountToken {
-  AccountToken(token: String)
+  AccountToken(String)
 }
 
 pub opaque type AgentToken {
-  AgentToken(token: String)
+  AgentToken(String)
 }
 
 pub type TokenParseError {
@@ -67,6 +67,11 @@ pub fn account_token_decoder() -> Decoder(AccountToken) {
   }
 }
 
+pub fn account_token_to_string(account_token: AccountToken) -> String {
+  let AccountToken(value) = account_token
+  value
+}
+
 pub fn parse_agent_token(value: String) -> Result(AgentToken, TokenParseError) {
   use jwt <- result.try(jwt.parse(value) |> result.replace_error(InvalidToken))
   case jwt.payload.subject {
@@ -83,6 +88,11 @@ pub fn agent_token_decoder() -> Decoder(AgentToken) {
   }
 }
 
+pub fn agent_token_to_string(agent_token: AgentToken) -> String {
+  let AgentToken(value) = agent_token
+  value
+}
+
 @internal
 pub fn set_request_auth(req: Request(a), auth_method: AuthMethod) -> Request(a) {
   case auth_method {