src/Much/Event.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Much.Event where

import Blessings
import Scanner

data Event =
    EFlash (Blessings String) |
    EScan Scan |
    EShutdown |
    EReload |
    EResize Int Int
  deriving Show