Fix MShift case in parseModifier

This commit is contained in:
Eric Mertens 2016-09-01 19:17:11 -07:00
parent 5e79d94786
commit 4a8677ced4

View File

@ -266,7 +266,7 @@ parseModifier :: forall s u (m :: * -> *).
parseModifier = do parseModifier = do
m <- P.identifier configLexer m <- P.identifier configLexer
case m of case m of
"KMenu" -> return MShift "MShift" -> return MShift
"MCtrl" -> return MCtrl "MCtrl" -> return MCtrl
"MMeta" -> return MMeta "MMeta" -> return MMeta
"MAlt" -> return MAlt "MAlt" -> return MAlt