Add guard

fsprojects · Mar 28, 2022 · 6423028 · 6423028
1 parent ff38df2
commit 6423028
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/FSharp.AWS.DynamoDB/TableContext.fs b/src/FSharp.AWS.DynamoDB/TableContext.fs
@@ -945,8 +945,10 @@ type TableContext<'TRecord> internal
                 match mode with
                 | InitializationMode.VerifyOnly | InitializationMode.CreateIfNotExists _ -> ()
                 | InitializationMode.CreateOrUpdateThroughput t ->
-                    // TODO make this not throw when its a null update
-                    do! __.UpdateProvisionedThroughputAsync(t)
+                    let provisioned = td.Table.ProvisionedThroughput
+                    if t.ReadCapacityUnits <> provisioned.ReadCapacityUnits
+                        || t.WriteCapacityUnits <> provisioned.WriteCapacityUnits then
+                        do! __.UpdateProvisionedThroughputAsync(t)
 
             | Choice2Of2 (:? ResourceNotFoundException) when mode <> InitializationMode.VerifyOnly ->
                 let throughput =