Unify key press and mouse button press timings

Both now use Ints for presses.
Still no release timer for keyboard events.

src/Dodge/Update/Input/Text.hs

@@ -24,8 +24,8 @@ doTextInputOver u p x =
 
 backspaceInputted :: Input -> Bool
 backspaceInputted u = case u ^. pressedKeys . at ScancodeBackspace of
-    Just InitialPress -> True
-    Just LongPress -> True
+    Just 0 -> True
+    Just x | x >= 30 -> True
     _ -> False
 
 doBackspace :: String -> String