Added newDMS

1 files changed, 5 insertions, 0 deletions

diff --git a/Spear/App/Input.hs b/Spear/App/Input.hs
index ef678d6..07e7189 100644
--- a/Spear/App/Input.hs
+++ b/Spear/App/Input.hs
@@ -20,6 +20,7 @@ module Spear.App.Input
 ,   toggledMouse
 ,   toggledKeyboard
     -- * Delayed input
+,   newDMS
 ,   delayedMouse
 )
 where
@@ -170,6 +171,10 @@ type ButtonDelay = MouseButton -> Float
 newtype DelayedMouseState = DelayedMouseState (V.Vector Float)
 
 
+newDMS :: DelayedMouseState
+newDMS = DelayedMouseState $ V.replicate (fromEnum (maxBound :: MouseButton)) 0
+
+
 delayedMouse :: ButtonDelay -- ^ Delay configuration for each button.
              -> Mouse -- ^ Current mouse state.
              -> Float -- ^ Time elapsed since last udpate.