Cleanup

src/Dodge/Update/Input/InGame.hs

@@ -2,6 +2,7 @@ module Dodge.Update.Input.InGame (
     updateUseInputInGame,
 ) where
 
+import Control.Applicative
 import qualified Data.IntMap.Strict as IM
 import Data.List (sort)
 import qualified Data.Map.Strict as M
@@ -236,10 +237,7 @@ updateEnterRegex w = case w ^? hud . hudElement . subInventory of
     secfocus a b = fromMaybe False $ do
         i <- di ^? diSelection . _Just . _1
         return $ i == a || i == b
-    enterregex x sss =
-        sss & sssExtra . sssFilters . ix x %~ f
-    f Nothing = Just ""
-    f x = x
+    enterregex x = sssExtra . sssFilters . ix x %~ (<|> Just "")
 
 pauseGame :: Universe -> Universe
 pauseGame u = u & uvScreenLayers .~ [pauseMenu u]