From 9209ccaadc40c294c85a8191a02330abea133bd6 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 13 Aug 2017 18:53:45 +0200
Subject: dispatchEvent: Ignore user's hostname argument

We don't need this information. I was just saving it to find out what
that argument actually was.
---
 src/Lib.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Lib.hs b/src/Lib.hs
index 4b5e844..53afeb5 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -6,7 +6,6 @@ module Lib
 
 import qualified Data.ByteString as B
 import qualified Data.Text as T
-import qualified Data.Text.Encoding as TE
 
 import Database.SQLite.Simple
 import qualified Network.IRC.Client as IRC
@@ -47,8 +46,8 @@ handlePrivmsg = IRC.EventHandler
     , IRC._eventFunc = \evt -> dispatchEvent evt
     }
   where
-    dispatchEvent (IRC.Event serv (IRC.User nick) (IRC.Privmsg _ (Right msg))) =
-        IRC.send $ IRC.Privmsg nick (Right (TE.decodeUtf8 serv))
-    dispatchEvent (IRC.Event serv
-      (IRC.Channel chan nick) (IRC.Privmsg _ (Right msg))) =
-        IRC.send $ IRC.Privmsg chan (Right (TE.decodeUtf8 serv))
+    dispatchEvent (IRC.Event _ (IRC.User nick) (IRC.Privmsg _ (Right msg))) =
+        IRC.send $ IRC.Privmsg nick (Right "test")
+    dispatchEvent (IRC.Event
+      _ (IRC.Channel chan nick) (IRC.Privmsg _ (Right msg))) =
+        IRC.send $ IRC.Privmsg chan (Right "test")
-- 
cgit v1.2.3