By | Chris Done |
At | 2011-06-13 |
Title | Fixed hlint for non-channel pastes. |
Description |
Edit file src/Amelie/Model/Paste.hs 33188 → 33188
94 94 ,"VALUES"
95 95 ,"(?,?,?,?,?,?)"
96 96 ,"returning id"]
97 97 (pasteSubmitTitle,pasteSubmitAuthor,pasteSubmitPaste
98 98 ,pasteSubmitChannel,pasteSubmitLanguage,pasteSubmitId)
+ 99 just res $ createHints ps
99 100 just (pasteSubmitChannel >>= lookupChan) $ \chan ->
100 101 just res $ \pid -> do
- 101 createHints ps pid
102 102 annotated <- maybe (return Nothing) getPasteById pasteSubmitId
103 103 announcePaste annotated (channelName chan) ps pid
104 104 return (pasteSubmitId <|> res)
105 105 106 106 where lookupChan cid = find ((==cid).channelId) chans
… … … …