adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

cosmetic

Browse source
This commit is contained in:
Julien Dessaux 2011-08-08 21:11:01 +02:00
parent 3b914c1b77
commit d933088dcb
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Hsbot/Utils.hs
View file

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