From d1e7fa79561bb4b2863c880c9afa62318e77b42d Mon Sep 17 00:00:00 2001 From: Ivy Date: Thu, 18 Feb 2021 20:36:11 +0100 Subject: [PATCH] Cleaned the code again --- src/Action.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)