repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change start signature
[cloogle-irc.git]
/
cloogleirc.icl
diff --git
a/cloogleirc.icl
b/cloogleirc.icl
index
1801ef8
..
a83663b
100644
(file)
--- a/
cloogleirc.icl
+++ b/
cloogleirc.icl
@@
-108,15
+108,15
@@
cloogle data w
, bs_strftime :: String
}
, bs_strftime :: String
}
-
//Start :: *World -> (MaybeErrorString ()
, *World)
+
Start :: *World -> (Maybe String
, *World)
Start w
# ([arg0:args], w) = getCommandLine w
# (io, w) = stdio w
# bs = parseCLI args
Start w
# ([arg0:args], w) = getCommandLine w
# (io, w) = stdio w
# bs = parseCLI args
-| isError bs = (
Error
$ "\n" +++ fromError bs +++ "\n", snd $ fclose io w)
+| 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
# (Ok bs) = bs
# (merr, io, w) = bot (bs.bs_server, bs.bs_port) (startup bs) shutdown io (process bs.bs_strftime) w
-= (m
aybe (Ok ()) Error m
err, snd $ fclose io w)
+= (merr, snd $ fclose io w)
where
parseCLI :: [String] -> MaybeErrorString BotSettings
parseCLI [] = Ok
where
parseCLI :: [String] -> MaybeErrorString BotSettings
parseCLI [] = Ok