From d933088dcb7d9b7ed05e0fbeb478472e0dae5a7a Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Mon, 8 Aug 2011 21:11:01 +0200
Subject: cosmetic

---
 Hsbot/Utils.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs
index 043037d..2ea1a49 100644
--- a/Hsbot/Utils.hs
+++ b/Hsbot/Utils.hs
@@ -40,8 +40,7 @@ setGlobalQuitMVar status = do
 hasAccess :: Maybe IRC.Prefix -> AccessRight -> Env IO Bool
 hasAccess Nothing _ = return False
 hasAccess (Just mask) right = do
-    botMVar <- asks envBotState
-    liftIO (readMVar botMVar) >>= evalStateT (fmap (any accessMatch) (gets botAccess))
+    asks envBotState >>= liftIO . readMVar >>= evalStateT (fmap (any accessMatch) (gets botAccess))
   where
     accessMatch :: AccessList -> Bool
     accessMatch (AccessList amask arights)
-- 
cgit v1.2.3