Tweak combine inventory regex

2023-02-13 21:18:11 +00:00
parent b5db7a3420
commit 8b39a99194
12 changed files with 78 additions and 88 deletions
@@ -8,7 +8,7 @@ import Dodge.Data.Universe
 --import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
 testStringInit u = 
-    [ show $ u ^. uvWorld . input . scrollTestValue
+    [ show $ u ^? uvWorld . hud . hudElement . subInventory . subInvMap . smRegex
    ]

 showTimeFlow :: TimeFlowStatus -> String