Add separate function checking when inventory is filtered

src/Dodge/Update/Input/Text.hs

@@ -15,7 +15,6 @@ doTextInputOverUniverse p u = doTextInputOver (u ^. uvWorld . input) p u
 doTextInputOver :: Input -> ASetter' a String -> a -> a
 doTextInputOver u p x =
     x & p %~ (++ map toUpper (rights str))
-    --x & p %~ (++ rights str)
         & checkBackspace
   where
     str = u ^. textInput