Cleanup

2024-10-31 09:50:21 +00:00
parent 97c3f1262b
commit 79b0af228e
6 changed files with 11 additions and 4 deletions
@@ -21,7 +21,9 @@ import Dodge.Data.Universe
 import qualified IntMapHelp as IM

 testStringInit :: Universe -> [String]
-testStringInit u = [show $ u ^? uvWorld . hud . hudElement . subInventory . nsMouseOver . _Just]
+testStringInit u = [show $ u ^? uvWorld . hud . hudElement . diSelection . _Just
+    , show $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crManipulation . manObject
+        ]
 --    <> map show (IM.elems (L.postscan (L.premap _siHeight L.sum)
 --        $ fromMaybe mempty $ u ^? uvWorld . hud . hudElement . diSections . sssSections . ix 0 . ssItems)
 --        )