diff options
| author | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-27 13:21:27 +0200 |
|---|---|---|
| committer | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-27 13:21:27 +0200 |
| commit | ba90df41ff0faabc61f520683d4192993dedfbab (patch) | |
| tree | 7b6e5df90ac7ef82b79f0a356126a56e15f0da5a | |
| parent | 63bb9eb070b2b41012050c6c24343a4e9937efa5 (diff) | |
Added newKeyboard
| -rw-r--r-- | Spear/App/Input.hs | 11 |
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 | |||
| 63 | } | 63 | } |
| 64 | 64 | ||
| 65 | 65 | ||
| 66 | -- | Return a dummy keyboard. | ||
| 67 | -- | ||
| 68 | -- This function should be called to get an initial keyboard. | ||
| 69 | -- | ||
| 70 | -- The returned keyboard has all of its keys unpressed. | ||
| 71 | -- | ||
| 72 | -- For further keyboard updates, see 'getKeyboard'. | ||
| 73 | newKeyboard :: Keyboard | ||
| 74 | newKeyboard = const False | ||
| 75 | |||
| 76 | |||
| 66 | -- | Get the keyboard. | 77 | -- | Get the keyboard. |
| 67 | getKeyboard :: IO Keyboard | 78 | getKeyboard :: IO Keyboard |
| 68 | getKeyboard = | 79 | getKeyboard = |