repositories
/
cloogle-irc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4a29715
)
Fix notices (only for private messages; channels get privmsg)
author
Camil Staps
<info@camilstaps.nl>
Thu, 13 Jul 2017 13:41:01 +0000
(13:41 +0000)
committer
Camil Staps
<info@camilstaps.nl>
Thu, 13 Jul 2017 13:43:01 +0000
(13:43 +0000)
cloogleirc.icl
patch
|
blob
|
history
diff --git
a/cloogleirc.icl
b/cloogleirc.icl
index
596f8c4
..
5d05563
100644
(file)
--- a/
cloogleirc.icl
+++ b/
cloogleirc.icl
@@
-173,12
+173,12
@@
Start w
| m == "!restart" = (Nothing, w)
| m.[0] == '!'
# (msgs, w) = realProcess (split " " $ m % (1, size m)) w
| m == "!restart" = (Nothing, w)
| m.[0] == '!'
# (msgs, w) = realProcess (split " " $ m % (1, size m)) w
- = (Just $ map
(NOTICE recipient)
msgs, w)
+ = (Just $ map
reply
msgs, w)
= (Just [], w)
where
= (Just [], w)
where
- re
cipient
= case (\(CSepList [t:_]) -> t.[0]) t of
- '#' -> t
- _ ->
CSepList [user.irc_nick]
+ re
ply
= case (\(CSepList [t:_]) -> t.[0]) t of
+ '#' ->
PRIVMSG
t
+ _ ->
NOTICE user.irc_nick
process` _ (PING t mt) w = (Just [PONG t mt], w)
process` _ _ w = (Just [], w)
process` _ (PING t mt) w = (Just [PONG t mt], w)
process` _ _ w = (Just [], w)