diff options
| author | Julien Dessaux | 2011-09-10 00:14:08 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-09-10 00:14:08 +0200 |
| commit | 0384f046ae1a3369921d027c3f16346e02feb5e6 (patch) | |
| tree | cd72d4c311b7e171b6f656bae52616f9d95ce90b /Hsbot/Utils.hs | |
| parent | Added the getChannel helper. (diff) | |
| download | hsbot-0384f046ae1a3369921d027c3f16346e02feb5e6.tar.gz hsbot-0384f046ae1a3369921d027c3f16346e02feb5e6.tar.bz2 hsbot-0384f046ae1a3369921d027c3f16346e02feb5e6.zip | |
Cosmetics.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs index 2ea1a49..821f610 100644 --- a/Hsbot/Utils.hs +++ b/Hsbot/Utils.hs @@ -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 |