@@ -13,23 +13,15 @@ data Key = KEsc | KFun Int | KBackTab | KPrtScr | KPause | KASCII Char | KBS | K
1313data Modifier = MShift | MCtrl | MMeta | MAlt
1414 deriving (Eq,Show,Ord)
1515
16−-- |Mouse buttons. Not yet used.
16+-- | Mouse buttons. Not yet used.
1717data Button = BLeft | BMiddle | BRight
1818 deriving (Eq,Show,Ord)
1919
20−-- |Generic events.
20+-- | Generic events.
2121data Event = EvKey Key [Modifier] | EvMouse Int Int Button [Modifier]
2222 | EvResize Int Int
2323 deriving (Eq,Show,Ord)
2424
25−data KClass
26− = Valid Key [Modifier]
27− | Invalid
28− | EndLoop
29− | Prefix
30− | MisPfx Key [Modifier] [Char]
31− deriving(Show)
32−
3325type ClassifyTable = [(String, (Key, [Modifier]))]
3426
3527map_to_legacy_table :: [(String, Event)] -> ClassifyTable