Move in game key press input reaction to universe update

src/Dodge/Data/Input.hs

@@ -5,15 +5,19 @@
 module Dodge.Data.Input where
 import Control.Lens
 import qualified Data.Map.Strict as M
-import qualified Data.Set as S
 import Dodge.Data.CWorld
 import Geometry.Data
 import SDL (MouseButton, Scancode)
 import qualified Data.Text as T
 
+data PressType = InitialPress
+    | ShortPress
+    | LongPress
+  deriving (Eq,Show)
+
 data Input = Input
     { _mousePos :: Point2
-    , _keys :: S.Set Scancode
+    , _pressedKeys :: M.Map Scancode PressType
     , _mouseButtons :: M.Map MouseButton Bool
     , _scrollAmount         :: Int
     , _previousScrollAmount :: Int