From c5b7ec13df9787441b635c80c4edabc8ad23fc36 Mon Sep 17 00:00:00 2001
From: Marc Sunet <jeannekamikaze@gmail.com>
Date: Mon, 27 Aug 2012 20:10:06 +0200
Subject: Added newDMS

---
 Spear/App/Input.hs | 5 +++++
 1 file changed, 5 insertions(+)

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.
-- 
cgit v1.2.3