make menu input case insensitive

src/Mtlstats/Menu.hs

@@ -30,6 +30,7 @@ module Mtlstats.Menu (
 ) where
 
 import Control.Monad.Trans.State (modify)
+import Data.Char (toUpper)
 import Lens.Micro ((^.), (.~), (?~))
 import qualified UI.NCurses as C
 
@@ -46,7 +47,7 @@ drawMenu m = do
 -- | The event handler for a 'Menu'
 menuHandler :: Menu a -> C.Event -> Action a
 menuHandler m (C.EventCharacter c) =
-  case filter (\i -> i ^. miKey == c) $ m ^. menuItems of
+  case filter (\i -> i^.miKey == toUpper c) $ m^.menuItems of
     i:_ -> i^.miAction
     []  -> return $ m^.menuDefault
 menuHandler m _ = return $ m^.menuDefault