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