adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

cosmetic

Browse source
This commit is contained in:
Julien Dessaux 2011-09-30 22:44:02 +02:00
parent 716b92fda8
commit 09a7af7091
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/Plugin/Quote.hs
View file

@ -235,7 +235,7 @@ quoteDeleteElt quoteDB msg quoteID eltID = do
_ <- update' quoteDB (SetQuote quoteID newQuote') _ <- update' quoteDB (SetQuote quoteID newQuote')
answerMsg msg $ sender ++ ": Appended to quote " ++ show quoteID ++ "." answerMsg msg $ sender ++ ": Appended to quote " ++ show quoteID ++ "."
Just False -> answerMsg msg $ sender ++ ": Someone else is editing this quote right now." Just False -> answerMsg msg $ sender ++ ": Someone else is editing this quote right now."
Nothing -> answerMsg msg $ sender ++ ":quoteId not found." Nothing -> answerMsg msg $ sender ++ ": quoteId not found."
where where
sender = getSender msg sender = getSender msg
channel = getChannel msg channel = getChannel msg