move data Event to separate module

1 files changed, 1 insertions, 7 deletions

diff --git a/test5.hs b/test5.hs
index c7a4468..fa3f4bb 100644
--- a/test5.hs
+++ b/test5.hs
@@ -19,6 +19,7 @@ import Control.Monad
 import Data.Maybe
 import Data.Monoid
 import Data.Time
+import Event
 import Scanner (getKey)
 import System.Directory
 import System.Environment
@@ -35,13 +36,6 @@ import TreeViewRaw
 import Utils
 
 
-data Event =
-    EFlash (Trammel String) |
-    EKey String |
-    EReload |
-    EResize Int Int
-  deriving Show
-
 
 data State = State
     { cursor :: Z.TreePos Z.Full TreeView