diff options
Diffstat (limited to 'Hsbot/Utils.hs')
-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 |