import Control.Applicative
import qualified Control.Monad as CM
import qualified Data.Map as DM
- from Control.Monad import class Monad, instance Monad Maybe, >>=
+ from Control.Monad import class Monad(bind), instance Monad Maybe, >>=
from Text.Encodings.UrlEncoding import urlEncode
import System.CommandLine
import Internet.HTTP
//| isError bs = (Just $ "\n" +++ fromError bs +++ "\n", snd $ fclose io w)
# (Ok bs) = bs
# (merr, io, w) = bot (bs.bs_server, bs.bs_port) (startup bs) shutdown io (process bs.bs_strftime) w
- = (Nothing, w)//= (merr, snd $ fclose io w)
+ = (merr, snd $ fclose io w)
where
parseCLI :: [String] -> MaybeErrorString BotSettings
parseCLI [] = Ok
(Nothing, w) = (Nothing, io, w)
(Just cs, w)
# msgs = map toPrefix cs
- #! (io, w) = foldr (log strf " (s): ") (io, w) msgs
+// #! (io, w) = foldr (log strf " (s): ") (io, w) msgs
= (Just msgs, io, w)
log :: String String IRCMessage (!*File, !*World) -> (!*File, !*World)