Cleanup
This commit is contained in:
+3
-2
@@ -146,8 +146,9 @@ updateUseInput u = case u ^? uvScreenLayers . _head of
|
||||
Just (DisplayTerminal tmid) | inTermFocus (_uvWorld u) -> updateKeysInTerminal tmid u
|
||||
Just (CombineInventory sm)
|
||||
| inregex sm -> doSubInvRegexInput u
|
||||
_ | inInvRegex (u ^. uvWorld) -> doInvRegexInput u
|
||||
_ | inCloseRegex (u ^. uvWorld) -> doCloseRegexInput u
|
||||
-- _ | inInvRegex (u ^. uvWorld) -> doInvRegexInput u
|
||||
_ | inInvRegex (u ^. uvWorld) -> doRegexInput (-1) invRegex invRegex u
|
||||
_ | inCloseRegex (u ^. uvWorld) -> doRegexInput 2 closeRegex closeRegex u
|
||||
_ -> M.foldlWithKey' updateKeyInGame u pkeys
|
||||
where
|
||||
inregex sm = fromMaybe False $ do
|
||||
|
||||
Reference in New Issue
Block a user