1 files changed, 0 insertions, 12 deletions

diff --git a/src/IRC.hs b/src/IRC.hs
index bb153d2..427fac7 100644
--- a/src/IRC.hs
+++ b/src/IRC.hs
@@ -31,24 +31,18 @@ handlePrivmsg = IRC.EventHandler
     }
   where
     dispatchEvent (IRC.Event _ (IRC.User nick) (IRC.Privmsg _ (Right msg))) = do
-        -- IRC.send $ IRC.Privmsg nick (Right "test")
         let message = Message
                 { text    = T.unpack msg
                 , channel = T.unpack nick
                 , nick    = T.unpack nick
                 }
             Just plugin = matchPlugin message
-        -- rsp =<< performPlugin plugin message
-        -- IRC.send case performPlugin plugin message of
-        --     Left err -> IRC.Privmsg nick (Right (T.pack err))
-        --     Right r  -> IRC.Privmsg nick (Right (T.pack r))
         response <- liftIO $ performPlugin plugin message
         IRC.send $ case response of
             Left err -> IRC.Privmsg nick (Right (T.pack err))
             Right r  -> IRC.Privmsg nick (Right (T.pack r))
     dispatchEvent (IRC.Event
       _ (IRC.Channel chan nick) (IRC.Privmsg _ (Right msg))) = do
-        -- IRC.send $ IRC.Privmsg chan (Right "test")
         let message = Message
                 { text    = T.unpack msg
                 , channel = T.unpack chan
@@ -59,9 +53,3 @@ handlePrivmsg = IRC.EventHandler
         IRC.send $ case response of
             Left err -> IRC.Privmsg chan (Right (T.pack err))
             Right r  -> IRC.Privmsg chan (Right (T.pack r))
-
-    -- let Just plugin = matchPlugin message
-    -- response <- performPlugin plugin message
-    -- putStrLn $ case response of
-    --     Left e  -> e
-    --     Right r -> r