Tweak muzzle flare

2023-05-28 11:14:05 +01:00
parent 10c9e2261f
commit 4b35a683af
6 changed files with 18 additions and 20 deletions
@@ -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