@@ -25,7 +25,7 @@ data Modifier = MShift | MCtrl | MMeta | MAlt
2525--
2626-- \todo not supported.
2727data Button = BLeft | BMiddle | BRight
28− deriving (Eq,Show,Ord)
28+ deriving (Eq,Show,Read,Ord)
2929
3030-- | Events.
3131data Event
@@ -36,6 +36,6 @@ data Event
3636 -- 'nextEvent' this is the size at the time the event was processed by Vty. Typically these are
3737 -- the same, but if somebody is resizing the terminal quickly they can be different.
3838 | EvResize Int Int
39− deriving (Eq,Show,Ord)
39+ deriving (Eq,Show,Read,Ord)
4040
4141type ClassifyMap = [(String,Event)]