module EventLoop.Input.Keyboard( Keyboard(..), KeyboardButton ) where import EventLoop.Json import EventLoop.Config -- Possible messages: -- {"type": "keyboard", "button": "<kkey>"} -- <kkey> = a | b | c .. | z | shift | caps .. -- Keyboard Messages In data Keyboard = KeyPress KeyboardButton type KeyboardButton = [Char] instance FromJSON Keyboard where fromJsonMessage (JSONObject ms) = KeyPress button where JSONString button = retrieveError buttonS ms