tellbot 0.3.4.0 → 0.4.0.0

raw patch · 2 files changed

+7/−4 lines, 2 files

Files

• src/Main.hs +6/−3
• tellbot.cabal +1/−1

@@ -16,7 +16,7 @@ import System.IO  version :: Version-version = Version [0,3,4,0] ["Grolsch"]+version = Version [0,4,0,0] ["Grolsch"]  type Failable   = EitherT String Identity type FailableIO = EitherT String IO@@ -66,6 +66,9 @@ msgIRC :: String -> String -> Session () msgIRC to msg = toIRC $ "PRIVMSG " ++ to ++ " :" ++ msg +noticeIRC :: String -> String -> Session ()+noticeIRC to msg = toIRC $ "NOTICE " ++ to ++ " :" ++ msg+ runFailable :: EitherT e Identity a -> Either e a runFailable = runIdentity . runEitherT @@ -277,7 +280,7 @@         | action == "deop"   = mapM_ (toIRC . (mode chan "-o"++)) actionParams         | action == "say"    = msgIRC chan (unwords actionParams)         | action == "kick"   = mapM_ (toIRC . (("KICK " ++ chan ++ " ")++)) actionParams-        | action == "notice" = toIRC . unwords $ "NOTICE " : actionParams+        | action == "notice" = noticeIRC chan (unwords actionParams)         | otherwise = msgIRC from "unknown action"     mode chan m = "MODE " ++ chan ++ " " ++ m ++ " " @@ -290,7 +293,7 @@     msgIRC from $ "-   -   deop user0 user1...: revoke op privileges"     msgIRC from $ "-   -   kick user0 user1...: kick them all!"     msgIRC from $ "-   -   say blabla: make " ++ myNick ++ " say something"-    msgIRC from $ "-   -   notice recipient msg: notice a message to someone (can be a channel or a user)"+    msgIRC from $ "-   -   notice msg: notice the channel something"     msgIRC from . showVersion $ version     msgIRC from $ "written in Haskell by phaazon" 

@@ -1,5 +1,5 @@ name:                tellbot-version:             0.3.4.0+version:             0.4.0.0 synopsis:            IRC tellbot description:         An IRC bot that can be used to create queuing message.                      It also offers a simple administration IRC bot interface.