infinity-0.1.1: Plugins/GreetPlugin.hs

module GreetPlugin where
import API

plugin :: InfinityPlugin
plugin = InfinityPlugin {
  name        = "Greet",
  commands    = ["hi","bye"],
  help        = [("hi","says 'hello world!")
                ,("bye","says 'goodbye cruel world!")],
  action      = greet
}

greet :: InfAction
greet user chan command str = do
  case command of
    "hi"  -> return "hello world!"
    "bye" -> return "goodbye cruel world!"