adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Other cosmetics + version upgrade.

Browse source
This commit is contained in:
Julien Dessaux 2011-10-01 00:49:49 +02:00
parent 2318d55bdc
commit 7cefea4cbc
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/Plugin/Duck.hs
View file

@ -82,7 +82,7 @@ theDuck (DuckArgs channel seconds) = do
ducksWaitingForDeath <- if empty then return 0 ducksWaitingForDeath <- if empty then return 0
else liftIO $ modifyMVar ducksMVar (\x -> return (x - shots, x)) else liftIO $ modifyMVar ducksMVar (\x -> return (x - shots, x))
_ <- update' statDB . UpdateScore (getSender msg) $ computeScore ducksWaitingForDeath shots _ <- update' statDB . UpdateScore (getSender msg) $ computeScore ducksWaitingForDeath shots
when (and [ ducksWaitingForDeath > 0, shots >= ducksWaitingForDeath ]) $ do when ((ducksWaitingForDeath > 0) && (shots >= ducksWaitingForDeath)) $ do
_ <- liftIO $ takeMVar ducksMVar _ <- liftIO $ takeMVar ducksMVar
time <- liftIO $ readMVar timeMVar time <- liftIO $ readMVar timeMVar
duckSpawner channel time ducksMVar duckSpawner channel time ducksMVar

2
Hsbot/Utils.hs
View file

@ -44,7 +44,7 @@ hasAccess (Just mask) right =
where where
accessMatch :: AccessList -> Bool accessMatch :: AccessList -> Bool
accessMatch (AccessList amask arights) accessMatch (AccessList amask arights)
| mask == amask = or [Admin `L.elem` arights, right `L.elem` arights] | mask == amask = (Admin `L.elem` arights) || (right `L.elem` arights)
| otherwise = False | otherwise = False
-- Helpers -- Helpers

2
hsbot.cabal
View file

@ -1,5 +1,5 @@
Name: hsbot Name: hsbot
Version: 0.4.16 Version: 0.4.17
Cabal-version: >=1.2 Cabal-version: >=1.2
Synopsis: A multipurposes IRC bot Synopsis: A multipurposes IRC bot
Description: Description: