By | fr33domlover |
At | 2015-07-05 |
Title | don't announce private pastes |
Description |
Edit file src/Hpaste/Model/Paste.hs 33188 → 33188
137 137 (pid,pasteSubmitTitle,pasteSubmitAuthor,pasteSubmitPaste
138 138 ,pasteSubmitChannel,pasteSubmitLanguage,ann_pid,rev_pid,spamrating,public)
139 139 when (lang == Just "haskell") $ just res $ createHints ps
140 140 just (pasteSubmitChannel >>= lookupChan) $ \chan ->
141 141 just res $ \pid -> do
- 142 when (spamrating < spamMinLevel) $
+ 142 when (spamrating < spamMinLevel && public) $
143 143 announcePaste pasteSubmitType (channelName chan) ps pid
144 144 return (pasteSubmitId <|> res)
145 145 146 146 where lookupChan cid = find ((==cid).channelId) chans
147 147 lookupLang lid = find ((==lid).languageId) langs
… … … …