diff --git a/src/Action.hs b/src/Action.hs
index de088cc..469d6b7 100644
--- a/src/Action.hs
+++ b/src/Action.hs
@@ -3,7 +3,6 @@
 module Action where
 
 import Graphics.Vty.Input
-import Control.Applicative
 import Data.Maybe
 import Linear.V2
 
@@ -25,4 +24,4 @@ bindings =
   ]
 
 eventToAction :: Event -> Action
-eventToAction e = fromJust $ lookup e bindings <|> Just None
+eventToAction e = fromMaybe None (lookup e bindings)