From ba90df41ff0faabc61f520683d4192993dedfbab Mon Sep 17 00:00:00 2001
From: Marc Sunet <jeannekamikaze@gmail.com>
Date: Mon, 27 Aug 2012 13:21:27 +0200
Subject: Added newKeyboard

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

diff --git a/Spear/App/Input.hs b/Spear/App/Input.hs
index 3a6090f..47e3139 100644
--- a/Spear/App/Input.hs
+++ b/Spear/App/Input.hs
@@ -63,6 +63,17 @@ data Input = Input
     }
 
 
+-- | Return a dummy keyboard.
+--
+-- This function should be called to get an initial keyboard.
+--
+-- The returned keyboard has all of its keys unpressed.
+--
+-- For further keyboard updates, see 'getKeyboard'.
+newKeyboard :: Keyboard
+newKeyboard = const False
+
+
 -- | Get the keyboard.
 getKeyboard :: IO Keyboard
 getKeyboard =
-- 
cgit v1.2.3