Move in game key press input reaction to universe update

src/Dodge/Update/Camera.hs

@@ -14,7 +14,6 @@ import Control.Monad
 import Data.Foldable
 import qualified Data.Map.Strict as M
 import Data.Maybe
-import qualified Data.Set as Set
 import Dodge.Base
 import Dodge.Creature.Test
 import Dodge.Data.Config
@@ -193,8 +192,8 @@ rotateCamera cfig w
     | keyr = over cWorld (rotateCameraBy (-0.025)) w
     | otherwise = ifConfigWallRotate cfig w
   where
-    keyl = SDL.ScancodeQ `Set.member` _keys (_input w) && notAtTerminal w
-    keyr = SDL.ScancodeE `Set.member` _keys (_input w) && notAtTerminal w
+    keyl = SDL.ScancodeQ `M.member` _pressedKeys (_input w) && notAtTerminal w
+    keyr = SDL.ScancodeE `M.member` _pressedKeys (_input w) && notAtTerminal w
 
 -- TODO check where/how this is used
 notAtTerminal :: World -> Bool