Event.hs


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

module Event
    ( Event (..)
    ) where

import Trammel


data Event =
    EFlash (Trammel String) |
    EKey String |
    EMouse Char Int Int | -- TODO s/Char/..
    EReload |
    EResize Int Int
  deriving Show