rewrite Scanner to use Event

1 files changed, 1 insertions, 0 deletions

diff --git a/Event.hs b/Event.hs
index 415422c..a0d43b7 100644
--- a/Event.hs
+++ b/Event.hs
@@ -8,6 +8,7 @@ import Trammel
 data Event =
     EFlash (Trammel String) |
     EKey String |
+    EMouse Char Int Int | -- TODO s/Char/..
     EReload |
     EResize Int Int
   deriving Show