withCurrentPlugin :: BotMonad s bot => Plugin -> bot a -> bot a
withCurrentPlugin p b = do
  prevPlugin <- use currentPlugin
  bracket_ (currentPlugin .= Just p) (currentPlugin .= prevPlugin) b
withCurrentPlugin :: BotMonad s bot => Plugin -> bot a -> bot a
withCurrentPlugin p b = do
  prevPlugin <- use currentPlugin
  bracket_ (currentPlugin .= Just p) (currentPlugin .= prevPlugin) b
withCurrentPlugin p b = do
  prevPlugin <- use currentPlugin
  bracket_ (currentPlugin .= Just p) (currentPlugin .= prevPlugin) b