Flatten values in creature manipulation data types

2024-09-24 21:50:21 +01:00
parent fe00af0e73
commit 25cec10313
24 changed files with 69 additions and 86 deletions
@@ -35,11 +35,11 @@ topTestPart u = [show $ u ^? uvWorld . hud . hudElement . diSections . sssExtra
    ]

 showManObj :: ManipulatedObject -> String
-showManObj (InInventory SortInventory) = "SortInventory"
-showManObj (InInventory (SelectedItem x y z)) = "SelItem: "++ show x++ " Root: "++show y++" Attached: "++show z
-showManObj (SelNothing) = "SelNothing"
-showManObj ((InNearby SortNearby)) = "SortNearby"
-showManObj (InNearby (SelCloseObject x)) = "Close " ++ show x
+showManObj SortInventory = "SortInventory"
+showManObj (SelectedItem x y z) = "SelItem: "++ show x++ " Root: "++show y++" Attached: "++show z
+showManObj SelNothing = "SelNothing"
+showManObj SortNearby = "SortNearby"
+showManObj (SelCloseObject x) = "Close " ++ show x


 --testStringInit u = fromMaybe mempty $ do