makeEvent "prompt"
    (JSONEventData{value = Just val})
        = PromptResponse (BUL.toString val)
makeEvent "prompt"
    (JSONEventData{value = Just val})
        = PromptResponse (BUL.toString val)
makeEvent "prompt"
    (JSONEventData{value = Just val})
        = PromptResponse (BUL.toString val)