adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Cosmetics.

Browse source
This commit is contained in:
Julien Dessaux 2011-09-10 00:14:08 +02:00
parent 96c12ca436
commit 0384f046ae
2 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/Utils.hs
View file

@ -39,7 +39,7 @@ setGlobalQuitMVar status = do
-- Access rights
hasAccess :: Maybe IRC.Prefix -> AccessRight -> Env IO Bool
hasAccess Nothing _ = return False
hasAccess (Just mask) right = do
hasAccess (Just mask) right =
asks envBotState >>= liftIO . readMVar >>= evalStateT (fmap (any accessMatch) (gets botAccess))
where
accessMatch :: AccessList -> Bool