By | fr33domlover |
At | 2016-02-22 |
Title | On user join, report memos before history log |
Description |
Edit file src/FunBot/IrcHandlers.hs 33188 → 33188
129 129 when welcome $ do
130 130 q <- askEnvS loopbackQueue
131 131 liftIO $ void $ forkIO $ do
132 132 threadDelay $ welcomeDelay * 1000 * 1000
133 133 writeChan q $ WelcomeEvent (unNickname nick) (unChannel chan)
+ 134 reportMemos nick chan
134 135 hd <- getUserHistoryOpts nick chan
135 136 when (hdEnabled hd) $ reportHistory nick chan (hdMaxLines hd) True
- 136 reportMemos nick chan
137 137 138 138 goodHost :: B.ByteString -> Bool
139 139 goodHost h =
140 140 let n = B.length h
141 141 suffix6 = B.drop (n - 6) h
… … … …