replicant-0.1.0.0: src/Replicant/Plugins/Echo.hs

module Replicant.Plugins.Echo
  ( echo
  ) where

import Replicant.Plugins.Base
import Data.Attoparsec.Text

echo :: Replicant e m => Plugin m
echo = Plugin "echo" [echoH]

echoH :: Replicant e m => Handler m
echoH = mkHandler "echo" False ("echo " *> takeText)
  [ Example "echo hello world" "Repeat `hello world` back"
  ]
  reply