ircbot-0.1.0: Network/IRC/Bot/Part/Ping.hs

module Network.IRC.Bot.Part.Ping where

import Network.IRC.Bot.BotMonad (BotMonad)
import Network.IRC.Bot.Commands (Ping(..), Pong(..), ping, sendCommand)

pingPart :: (BotMonad m) => m ()     
pingPart =
  do (Ping hostName) <- ping
     sendCommand (Pong hostName)