Bot(privmsgFromPlugin): Try to use the `Bot` monad instead of `IO`

Convert this function and `Plugins(performPlugin)` to use a
`Bot`-wrapped plugin.

Still having a lot of trouble with this, unable to get past
monad-related compilation errors. The plan is to leave this as-is for
now and attack the problem from a different place, looking at the `main`
function next, applying our plugins with `runBot`, and then passing
those monad-wrapped plugins to `connectIRC`. Once that's taken care of,
we'll see what we need to modify in this middle strata of the stack.

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]