Merge pull request #28 from diffo-dev/16-typed-struct-extensions

16 typed struct extensions

Author: matt-beanland

lib/ash_jason/typed_struct.ex

@@ -8,6 +8,7 @@ defmodule Diffo.Access.AssignableValue do
 
   jason do
     pick [:first, :last, :free, :type, :algorithm]
+    compact true
   end
 
   typed_struct do

lib/ash_jason/typed_struct/transformer.ex

@@ -8,6 +8,7 @@ defmodule Diffo.Access.Assignment do
 
   jason do
     pick [:id, :assignee_id, :operation]
+    compact true
   end
 
   typed_struct do

lib/diffo/access/assigner/assignable_value.ex

@@ -4,10 +4,15 @@ defmodule Diffo.Access.CableValue do
 
   CableValue - AshTyped Struct for Cable Characteristic Value
   """
-  use Ash.TypedStruct, extensions: [AshJason.TypedStruct]
+  use Ash.TypedStruct, extensions: [AshJason.TypedStruct, AshOutstanding.TypedStruct]
 
   jason do
     pick [:name, :pairs, :length, :loss, :technology]
+    compact true
+  end
+
+  outstanding do
+    expect [:pairs, :loss]
   end
 
   typed_struct do

lib/diffo/access/assigner/assignment.ex

@@ -4,12 +4,18 @@ defmodule Diffo.Access.CardValue do
 
   CardValue - AshTyped Struct for Card Characteristic Value
   """
-  use Ash.TypedStruct, extensions: [AshJason.TypedStruct]
+  use Ash.TypedStruct, extensions: [AshJason.TypedStruct, AshOutstanding.TypedStruct]
 
   jason do
     pick [:name, :family, :model, :technology]
+    compact true
   end
 
+  outstanding do
+    expect [:name]
+  end
+
+
   typed_struct do
     field :name, :string, description: "the card name"
 

lib/diffo/access/resources/characteristic_values/cable_value.ex

@@ -4,10 +4,15 @@ defmodule Diffo.Access.FloatUnit do
 
   FloatUnit - AshTyped Struct for Float with Unit
   """
-  use Ash.TypedStruct, extensions: [AshJason.TypedStruct]
+  use Ash.TypedStruct, extensions: [AshJason.TypedStruct, AshOutstanding.TypedStruct]
 
   jason do
     pick [:amount, :unit]
+    compact true
+  end
+
+  outstanding do
+    expect [:amount, :unit]
   end
 
   typed_struct do

lib/diffo/access/resources/characteristic_values/card_value.ex

@@ -4,10 +4,15 @@ defmodule Diffo.Access.IntegerUnit do
 
   IntegerUnit - AshTyped Struct for Integer with Unit
   """
-  use Ash.TypedStruct, extensions: [AshJason.TypedStruct]
+  use Ash.TypedStruct, extensions: [AshJason.TypedStruct, AshOutstanding.TypedStruct]
 
   jason do
     pick [:amount, :unit]
+    compact true
+  end
+
+  outstanding do
+    expect [:amount, :unit]
   end
 
   typed_struct do

lib/diffo/access/resources/characteristic_values/float_unit.ex

@@ -4,10 +4,15 @@ defmodule Diffo.Access.PathValue do
 
   PathValue - AshTyped Struct for Path Characteristic Value
   """
-  use Ash.TypedStruct, extensions: [AshJason.TypedStruct]
+  use Ash.TypedStruct, extensions: [AshJason.TypedStruct, AshOutstanding.TypedStruct]
 
   jason do
     pick [:name, :sections, :length, :loss, :technology]
+    compact true
+  end
+
+  outstanding do
+    expect [:loss]
   end
 
   typed_struct do