By | fr33domlover |
At | 2015-09-19 |
Title | fix import ambiguity |
Description |
Edit file src/Hpaste/Model/Paste.hs 33188 → 33188
39 39 import Data.Monoid.Operator ((++))
40 40 import Data.Text (Text,unpack,pack)
41 41 import qualified Data.Text as T
42 42 import Data.Text.IO as T (writeFile)
43 43 import Data.Text.Lazy (fromStrict)
- 44 import FunBot.ExtEvents (Paste (..))
+ 44 import qualified FunBot.ExtEvents as F (Paste (..))
45 45 import Language.Haskell.HLint
46 46 import Prelude hiding ((++))
47 47 import Snap.App
48 48 import System.Directory
49 49 import System.FilePath
… … … … 182 182 announcePaste ptype channel PasteSubmit{..} pid = do
183 183 conf <- env modelStateConfig
184 184 verb <- getVerb
185 185 unless (seemsLikeSpam pasteSubmitTitle || seemsLikeSpam pasteSubmitAuthor) $ do
186 186 announcer <- env modelStateAnns
- 187 io $ announce announcer pasteSubmitAuthor channel $ Paste
- 188 { pasteAuthor = nick
- 189 , pasteVerb = verb
- 190 , pasteTitle = pasteSubmitTitle
- 191 , pasteUrl = link conf
- 192 , pasteChannel = channel
+ 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
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
… … … …