1 2 3 4 5 6 7 8 9 10 11 12
module Event where import Blessings import Scanner data Event = EFlash (Blessings String) | EScan Scan | EShutdown | EReload | EResize Int Int deriving Show