aboutsummaryrefslogtreecommitdiffstats
path: root/src/Reaktor/Plugins
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2019-01-27 00:20:34 +0100
committertv <tv@krebsco.de>2019-01-27 00:20:34 +0100
commitaaddda85c74540d1dab452dcdddf425927983ea9 (patch)
tree22100b10ef481aeedd4e8d1321b6e1b9855c1423 /src/Reaktor/Plugins
parente7383622d11aebab5a2af3e5283e9e846e7b60b7 (diff)
Reaktor.Plugins.System: JOIN has only one param
Diffstat (limited to 'src/Reaktor/Plugins')
-rw-r--r--src/Reaktor/Plugins/System.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Reaktor/Plugins/System.hs b/src/Reaktor/Plugins/System.hs
index 3d6ec5c..a39bd23 100644
--- a/src/Reaktor/Plugins/System.hs
+++ b/src/Reaktor/Plugins/System.hs
@@ -36,8 +36,8 @@ import qualified Text.Regex.PCRE.Light as RE
new :: Config -> Actions -> IO (Message -> IO ())
new config@Config{..} actions@Actions{..} = do
pure $ \case
- Message (Just prefix) cmd (msgtarget:text:[]) | elem cmd ["PRIVMSG", "JOIN"] -> do
- let hooks = maybe [] id (M.lookup cmd cHooks)
+ Message (Just prefix) "PRIVMSG" (msgtarget:text:[]) -> do
+ let hooks = maybe [] id (M.lookup "PRIVMSG" cHooks)
mapM_ (\h -> run1 config actions h prefix msgtarget text) hooks
Message (Just prefix) "JOIN" (channel:[]) -> do