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
@@ -1,4 +1,7 @@
-module Dodge.InputFocus where
+module Dodge.InputFocus 
+    ( inTermFocus
+    , inputFocus
+    ) where

 import Dodge.Data.SelectionList
 import Data.Maybe
@@ -14,4 +17,4 @@ inTermFocus w = fromMaybe False $ do

 inputFocus :: World -> Bool
 inputFocus w = inTermFocus w 
-    || (w ^? hud . hudElement . subInventory . subInvMap . smRegexInput) == Just True
+    || (w ^? hud . hudElement . subInventory . subInvMap . smRegex . smrInput) == Just True