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
m <- P.identifier configLexer
case m of
"KMenu" -> return MShift
"MShift" -> return MShift
"MCtrl" -> return MCtrl
"MMeta" -> return MMeta
"MAlt" -> return MAlt