Bump version to 1.5.5

README.md

@@ -7,12 +7,11 @@
 gleam add spacetraders_sdk@1
 ```
 ```gleam
-import spacetraders_sdk
+import spacetraders_api
 
 pub fn main() -> Nil {
-  let assert Ok(server_status) = get_server_status()
-  echo server_status
-  Nil
+  let assert Ok(server_status) = spacetraders_api.get_server_status()
+  io.println(server_status.status)
 }
 ```
 

gleam.toml

@@ -1,5 +1,5 @@
 name = "spacetraders_sdk"
-version = "1.5.0"
+version = "1.5.5"
 gleam = ">= 1.11.0"
 description = "A Gleam SDK for the spacetraders.io game API"
 licences = ["MIT"]

src/spacetraders_api.gleam

@@ -1673,6 +1673,7 @@ pub type ConstructionSiteSupplied {
 }
 
 pub fn supply_construction_site(
+  token: AgentToken,
   system_symbol: SystemSymbol,
   waypoint_symbol: WaypointSymbol,
   ship_symbol: ShipSymbol,
@@ -1681,7 +1682,7 @@ pub fn supply_construction_site(
 ) -> ApiResponse(ConstructionSiteSupplied) {
   let request =
     api.post_json(
-      NoAuth,
+      AgentAuth(token),
       "/systems/"
         <> system_symbol.to_string(system_symbol)
         <> "/waypoints/"

src/spacetraders_models/ship_component_condition.gleam

@@ -1,4 +1,5 @@
 import gleam/dynamic/decode.{type Decoder}
+import gleam/int
 import gleam/json.{type Json}
 
 pub opaque type ShipComponentCondition {
@@ -17,7 +18,11 @@ pub fn parse(value: Float) -> Result(ShipComponentCondition, Nil) {
 }
 
 pub fn decoder() -> Decoder(ShipComponentCondition) {
-  use value <- decode.then(decode.float)
+  use value <- decode.then(
+    decode.one_of(decode.float, [
+      decode.then(decode.int, fn(i) { decode.success(int.to_float(i)) }),
+    ]),
+  )
   case parse(value) {
     Ok(ship_component_condition) -> decode.success(ship_component_condition)
     Error(Nil) ->

src/spacetraders_models/ship_component_integrity.gleam

@@ -1,4 +1,5 @@
 import gleam/dynamic/decode.{type Decoder}
+import gleam/int
 import gleam/json.{type Json}
 
 pub opaque type ShipComponentIntegrity {
@@ -17,7 +18,11 @@ pub fn parse(value: Float) -> Result(ShipComponentIntegrity, Nil) {
 }
 
 pub fn decoder() -> Decoder(ShipComponentIntegrity) {
-  use value <- decode.then(decode.float)
+  use value <- decode.then(
+    decode.one_of(decode.float, [
+      decode.then(decode.int, fn(i) { decode.success(int.to_float(i)) }),
+    ]),
+  )
   case parse(value) {
     Ok(ship_component_integrity) -> decode.success(ship_component_integrity)
     Error(Nil) ->

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 {