diff --git a/src/gui.rs b/src/gui.rs
index c08320c..2b27508 100644
--- a/src/gui.rs
+++ b/src/gui.rs
@@ -107,7 +107,10 @@ impl Application for Main {
    }
 
    fn subscription(&self) -> Subscription<Message> {
-      return subscription::events().map(Message::EventOccurred)
+      return subscription::events_with((|event| match (event) {
+         Event::Keyboard(x) => Some(x),
+         _ => None,
+      });
    }
 
    fn view(&self) -> Element<Message> {