Allow for scrolling in combine regex

2023-02-13 23:15:34 +00:00
parent 8b39a99194
commit 9dd4c53316
10 changed files with 46 additions and 37 deletions
@@ -8,7 +8,7 @@ import Dodge.Data.Universe
 --import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
 testStringInit u = 
-    [ show $ u ^? uvWorld . hud . hudElement . subInventory . subInvMap . smRegex
+    [ show $ u ^? uvWorld . hud . hudElement . subInventory . subInvMap . smRegex . _Just
    ]

 showTimeFlow :: TimeFlowStatus -> String