1 files changed, 11 insertions, 0 deletions

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 =