Tweak muzzle flare

src/Dodge/Update/Input/ScreenLayer.hs

@@ -2,6 +2,7 @@ module Dodge.Update.Input.ScreenLayer (
     updateUseInputOnScreen,
 ) where
 
+import Data.Char
 import Control.Monad
 import qualified Data.Map.Strict as M
 import Data.Maybe
@@ -30,7 +31,7 @@ doInputScreenInput s u =
     checkEndStatus
         | ispressed ScancodeReturn =
             (uvScreenLayers %~ tail)
-                . applyTerminalString (words s)
+                . applyTerminalString (words $ map toUpper s)
                 . (uvWorld . worldEventFlags . at InventoryChange ?~ ())
         | ispressed ScancodeEscape = uvScreenLayers %~ tail
         | otherwise = id