♻️ Make property update easier

src/Duets.Entities/Item.fs

@@ -1,5 +1,7 @@
 module Duets.Entities.Item
 
+open Microsoft.FSharp.Reflection
+
 module Property =
     /// Attempts to retrieve the main property of the given item, if any.
     let tryMain item = item.Properties |> List.tryHead
@@ -10,6 +12,33 @@ module Property =
     /// Checks if the given item has a property that satisfies the given function.
     let has fn item = item.Properties |> List.exists fn
 
+    /// Removes the current given property from the item and re-adds the updated
+    /// one, returning the updated item. The matching of the property is done
+    /// against the name of the case via reflection, so it'd match even if
+    /// the values inside the property are different.
+    let update property item =
+        let updatedPropertyInfo, _ =
+            FSharpValue.GetUnionFields(property, property.GetType())
+
+        item.Properties
+        |> List.filter (fun currentProperty ->
+            let currentPropertyInfo, _ =
+                FSharpValue.GetUnionFields(
+                    currentProperty,
+                    currentProperty.GetType()
+                )
+
+            currentPropertyInfo.Name <> updatedPropertyInfo.Name)
+        |> (@) [ property ]
+
+/// Updates the given item by removing the current property that matches
+/// the given one, and re-adds the updated property returning the updated item.
+let updateProperty property item =
+    let updatedProperties = Property.update property item
+
+    { item with
+        Properties = updatedProperties }
+
 module Beer =
     /// Creates a beer item.
     let create brand amount alcoholContent =

src/Duets.Simulation/Interactions/Items/Actions/Read.Action.fs

@@ -23,16 +23,7 @@ let private read' (item: Item) book state =
             { book with
                 ReadProgress = updatedReadPercentage }
 
-        let updatedProperties =
-            item.Properties
-            |> List.filter (function
-                | Readable _ -> false
-                | _ -> true)
-            |> (@) [ Readable(Book updatedBook) ]
-
-        let updatedItem =
-            { item with
-                Properties = updatedProperties }
+        let updatedItem = Item.updateProperty (Readable(Book updatedBook)) item
 
         Diff(item, updatedItem) |> ItemChangedInCharacterInventory