move data Event to separate module

2 files changed, 14 insertions, 7 deletions

diff --git a/Event.hs b/Event.hs
new file mode 100644
index 0000000..415422c
--- /dev/null
+++ b/Event.hs
@@ -0,0 +1,13 @@
+module Event
+    ( Event (..)
+    ) where
+
+import Trammel
+
+
+data Event =
+    EFlash (Trammel String) |
+    EKey String |
+    EReload |
+    EResize Int Int
+  deriving Show
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