From 045dc986b4de225a927175f81c8ccfdab450202c Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sat, 17 Oct 2015 03:10:15 +0200
Subject: Use external Blessings and Scanner libraries

---
 Event.hs | 20 ++++----------------
 1 file changed, 4 insertions(+), 16 deletions(-)

(limited to 'Event.hs')

diff --git a/Event.hs b/Event.hs
index f316c13..1aa718a 100644
--- a/Event.hs
+++ b/Event.hs
@@ -1,23 +1,11 @@
 module Event where
 
-import Trammel
-
+import Blessings
+import Scanner
 
 data Event =
-    EFlash (Trammel String) |
-    EKey String |
-    EMouse MouseInfo |
+    EFlash (Blessings String) |
+    EScan Scan |
     EReload |
     EResize Int Int
   deriving Show
-
-
-data MouseInfo = MouseInfo
-    { mouseButton :: Int -- 0 = release
-    , mouseShift :: Bool
-    , mouseMeta :: Bool
-    , mouseControl :: Bool
-    , mouseX :: Int
-    , mouseY :: Int
-    }
-  deriving Show
-- 
cgit v1.2.3