Duplicate existing description when adding a new description part

iminashi · Jul 6, 2024 · ba43fe6 · ba43fe6
1 parent a15fcc6
commit ba43fe6
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/samples/DLCBuilder.Domain/EditFunctions.fs b/samples/DLCBuilder.Domain/EditFunctions.fs
@@ -321,7 +321,13 @@ let editTone state edit index =
             { tone with Volume = -volume }
 
         | AddDescriptor ->
-            { tone with ToneDescriptors = tone.ToneDescriptors |> Array.append [| ToneDescriptor.all[0].UIName |] }
+            let newToneDescriptor =
+                tone.ToneDescriptors
+                |> Array.tryHead
+                |> Option.defaultValue ToneDescriptor.all[0].UIName
+
+            { tone with
+                ToneDescriptors = Array.insertAt 0 newToneDescriptor tone.ToneDescriptors }
 
         | RemoveDescriptor ->
             { tone with ToneDescriptors = tone.ToneDescriptors[1..] }