blob: 76b3a05d1d292b59ff47979a09f78f5e701e04d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Much.Event where
import Blessings
import Data.WText (WText)
import Much.State
import Scanner
data Event =
EFlash (Blessings WText) |
EScan Scan |
EShutdown |
EReload |
EResize Int Int |
EStateGet (State -> IO ())
deriving Show
|
