diff options
Diffstat (limited to 'src/Plugin.hs')
| -rw-r--r-- | src/Plugin.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Plugin.hs b/src/Plugin.hs index 04a8054..d4aa6f9 100644 --- a/src/Plugin.hs +++ b/src/Plugin.hs @@ -67,8 +67,10 @@ matchPlugins message plugins = -- [return p | p <- plugins', M.textStr message =~ matchRegex p] -- | Run the action belonging to the plugin, stored in its `perform` field. -performPlugin :: Plugin -> PluginAction -performPlugin p message = perform p $ message +performPlugin :: Bot Plugin -> PluginAction +performPlugin p message = do + plugin <- p + perform plugin $ message plugins :: [Bot Plugin] plugins = PL.plugins ++ [help] |