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