Start collapsing manipulated item code with selection code

2026-05-14 14:24:57 +01:00
parent 59d128f87a
commit 06b984c2e5
21 changed files with 86 additions and 64 deletions
@@ -128,10 +128,8 @@ topTestPart u =

 showManObj :: ManipulatedObject -> String
 showManObj SortInventory = "SortInventory"
-showManObj (SelectedItem x y as z) =
-    "SelItem: "
-        ++ show x
-        ++ " Root: "
+showManObj (SelectedItem y as z) =
+        " Root: "
        ++ show y
        ++ " Attached: "
        ++ show z