| By | fr33domlover |
| At | 2015-09-19 |
| Title | i won't mind if it builds now |
| Description |
Edit file src/Hpaste/Model/Paste.hs 33188 → 33188
183 183 conf <- env modelStateConfig
184 184 verb <- getVerb
185 185 unless (seemsLikeSpam pasteSubmitTitle || seemsLikeSpam pasteSubmitAuthor) $ do
186 186 announcer <- env modelStateAnns
187 187 io $ announce announcer pasteSubmitAuthor channel $ F.Paste
- 188 { F.pasteAuthor = nick- 189 , F.pasteVerb = verb
- 190 , F.pasteTitle = pasteSubmitTitle
- 191 , F.pasteUrl = link conf
- 192 , F.pasteChannel = channel
+ 188 { F.pasteAuthor = unpack nick+ 189 , F.pasteVerb = unpack verb
+ 190 , F.pasteTitle = unpack $ pasteSubmitTitle
+ 191 , F.pasteUrl = unpack $ link conf
+ 192 , F.pasteChannel = unpack channel
193 193 }
194 194 where nick | validNick (unpack pasteSubmitAuthor) = pasteSubmitAuthor
195 195 | otherwise = "“" ++ pasteSubmitAuthor ++ "”"
196 196 link Config{..} = "http://" ++ pack configDomain ++ "/" ++ pid'197 197 pid' = case ptype of
… … … …