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.

1 files changed, 5 insertions, 6 deletions

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")