Untitled

{-# LANGUAGE OverloadedStrings #-}

import Data.ByteString.Char8 hiding (putStrLn)
import Network.SimpleIRC
import System.IO.Error

joinEvent :: EventFunc
joinEvent m msg = case mNick msg of
                    Just "gawelBot" -> sendCmd m $ MQuit "Bye !"
                    _ -> return ()

config :: IrcConfig
config = defaultConfig {
           cNick = "gawelBot",
           cAddr = "irc.epiknet.org",
           cChannels = ["#c2s"],
           cEvents = [Join joinEvent]
         }

main :: IO ()
main = do
  r <- connect config False True
  case r of
    Left err -> putStrLn ("Error: " ++ ioeGetErrorString err)
    Right conn -> return ()