repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update
[cloogle-irc.git]
/
cloogle.icl
diff --git
a/cloogle.icl
b/cloogle.icl
index
29cee80
..
a7a428e
100644
(file)
--- a/
cloogle.icl
+++ b/
cloogle.icl
@@
-29,8
+29,8
@@
import TCPIP
commands :: [String]
commands = map toString
commands :: [String]
commands = map toString
- [NICK "clooglebot"
- ,USER "cloogle"
0
"Cloogle bot"
+ [NICK "clooglebot"
Nothing
+ ,USER "cloogle"
"0"
"Cloogle bot"
,JOIN [("#cloogle", Nothing)]
]
,JOIN [("#cloogle", Nothing)]
]
@@
-132,7
+132,7
@@
cloogle data w
# resp = fromOk mer
= case fromJSON $ fromString resp.HTTPResponse.rsp_data of
Nothing = ("couldn't parse json", w)
# resp = fromOk mer
= case fromJSON $ fromString resp.HTTPResponse.rsp_data of
Nothing = ("couldn't parse json", w)
- Just clr = ("Results for " + data + " -- https://cloogle.org/#" +
urlEncode data
+ "\n" +
+ Just clr = ("Results for " + data + " -- https://cloogle.org/#" +
replaceSubString "+" "%20" (urlEncode data)
+ "\n" +
processResults clr, w)
where
processResults :: Response -> String
processResults clr, w)
where
processResults :: Response -> String
@@
-184,8
+184,8
@@
recv {sChannel,rChannel} w
| rpt == TR_NoSuccess || isNothing resp = abort "Halp?\n"
= (toString <$> resp, {sChannel=sChannel,rChannel=rChannel}, w)
| rpt == TR_NoSuccess || isNothing resp = abort "Halp?\n"
= (toString <$> resp, {sChannel=sChannel,rChannel=rChannel}, w)
-msg :: (String -> IRCCommand
s
)
-msg = PRIVMSG
"#cloogle"
+msg :: (String -> IRCCommand)
+msg = PRIVMSG
["#cloogle"]
process :: *File TCP_DuplexChannel *World -> (*File, TCP_DuplexChannel, *World)
process io chan w
process :: *File TCP_DuplexChannel *World -> (*File, TCP_DuplexChannel, *World)
process io chan w