Remove commented code from a0d21d9aed3a38e98e622fbae5fcab3e91c5ddee

I had a bunch of code commented from earlier and from false starts when
working on integrating my plugins and the IRC message handler. Remove
these commented lines now as they are no longer relevant. The actual
code is functioning.

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