From 0384f046ae1a3369921d027c3f16346e02feb5e6 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 10 Sep 2011 00:14:08 +0200
Subject: Cosmetics.

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

(limited to 'Hsbot/Utils.hs')

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
-- 
cgit v1.2.3