diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/IRC.hs | 12 | ||||
-rw-r--r-- | src/Lib.hs | 12 | ||||
-rw-r--r-- | src/Plugin/Base.hs | 2 |
3 files changed, 0 insertions, 26 deletions
@@ -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 @@ -13,15 +13,3 @@ import Plugin someFunc :: IO () someFunc = do connectIRC "irc.freenode.net" 6697 "test-bot-7890asdf" - -- let message = Message - -- { text = "75ac7b18a009ffe7a77a17a61d95c01395f36b44" - -- , channel = "#a-channel" - -- , nick = "anon" - -- } - -- Just plugin = matchPlugin message - -- dbConn <- open "db/sorbot_development.sqlite3" - -- response <- performPlugin plugin message - -- putStrLn $ case response of - -- Left e -> e - -- Right r -> r - -- close dbConn diff --git a/src/Plugin/Base.hs b/src/Plugin/Base.hs index 4e63fdd..6ba4ca5 100644 --- a/src/Plugin/Base.hs +++ b/src/Plugin/Base.hs @@ -8,8 +8,6 @@ import Database.SQLite.Simple import Message --- TODO: Replace Connection with a type class --- type PluginAction = Message -> Connection -> IO (Either String String) type PluginAction = Message -> IO (Either String String) data Plugin = Plugin |