Use custom type for message tokens
Make lurch_device:poll_device_event a cast.

Modify tests accordingly - directly test the gen_server callbacks.
Populate the initial state in record definition.