| By | fr33domlover |
| At | 2015-07-14 |
| Title | use "anonymous" instead of "anonymous coward" |
| Description |
Edit file src/Hpaste/View/Paste.hs 33188 → 33188
102 102 Just pid -> AnnotationOf (pasteId pid)
103 103 _ -> case pfEditPaste of
104 104 Just pid -> RevisionOf (pasteId pid)
105 105 _ -> NormalPaste)
106 106 <*> defaulting "No title" (textPlaceholder "title" "Title" (annotateTitle <|> editTitle))
- 107 <*> defaulting "Anonymous Coward" (textPlaceholder "author" "Author" Nothing)
+ 107 <*> defaulting "(anonymous)" (textPlaceholder "author" "Author" Nothing)
108 108 <*> parse (traverse lookupLang)
109 109 (opt (dropPlace languages "language" (snd defChan)))
110 110 <*> parse (traverse lookupChan)
111 111 (opt (dropPlace channels "channel" (fst defChan)))
112 112 <*> req (areaPlaceholder "paste" "Enter your code here" pfContent)
… … … … Edit file src/Hpaste/Model/Spam.hs 33188 → 33188
77 77 weighted :: PasteSubmit -> Integer -> Integer
78 78 weighted ps n = foldr ($) n weights where
79 79 weights = [-- Commenting out this for now, it catches too many false negatives.
80 80 -- if T.isInfixOf "http://" text || T.isInfixOf "https://" text
81 81 -- then (+ (20 * fromIntegral (T.count "http://" text + T.count "https://" text))) else id
- 82 if pasteSubmitAuthor ps == "Anonymous Coward" || pasteSubmitAuthor ps == "Anonymous"
+ 82 if pasteSubmitAuthor ps == "(anonymous)" ||
+ 83 pasteSubmitAuthor ps == "anonymous" ||
+ 84 pasteSubmitAuthor ps == "Anonymous"
83 85 then (+20) else id
84 86 ]
85 87 text = allText ps
86 88 87 89 -- | Get the text of the paste.
… … … …