Other cosmetics + version upgrade.

Hsbot/Plugin/Duck.hs

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

Hsbot/Utils.hs

@@ -44,7 +44,7 @@ hasAccess (Just mask) right =
   where
     accessMatch :: AccessList -> Bool
     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
 
 -- Helpers

hsbot.cabal

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