replace hirc.hs by main.hs

1 files changed, 16 insertions, 0 deletions

diff --git a/Event.hs b/Event.hs
new file mode 100644
index 0000000..87fc4e7
--- /dev/null
+++ b/Event.hs
@@ -0,0 +1,16 @@
+module Event where
+
+import Blessings
+import Scanner
+import qualified Hirc
+
+data Event =
+    EFlash (Blessings String) |
+    EScan Scan |
+    EReload |
+    EResize Int Int |
+    EPutLn String |
+    EHircConnect Hirc.Bot |
+    EHircMessage Hirc.Message |
+    EHircError Hirc.Error |
+    ETick