keyPress :: Parsec String () Event
keyPress = do string "KeyPress"
              char '\0'
              c <- option '\0' (noneOf "\0")
              return (KeyPress c)
keyPress :: Parsec String () Event
keyPress = do string "KeyPress"
              char '\0'
              c <- option '\0' (noneOf "\0")
              return (KeyPress c)
keyPress = do string "KeyPress"
              char '\0'
              c <- option '\0' (noneOf "\0")
              return (KeyPress c)