From a8c0c8578718098e7a0482678ab727533ee09862 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 6 May 2011 19:15:40 +0200
Subject: Made the Plugin monad a Reader instead of a State since it can't
 change.

---
 Hsbot/Utils.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'Hsbot/Utils.hs')

diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs
index b41fa52..6eec5c4 100644
--- a/Hsbot/Utils.hs
+++ b/Hsbot/Utils.hs
@@ -1,7 +1,6 @@
 module Hsbot.Utils
     ( addThreadIdToQuitMVar
     , delThreadIdFromQuitMVar
-    , first
     , initTLSEnv
     , readCertificate
     , readPrivateKey
@@ -41,9 +40,6 @@ setGlobalQuitMVar status = do
     quitMv <- asks envQuitMv
     liftIO $ putMVar quitMv status
 
-first :: (a, b, c) -> a
-first (a, _, _) = a
-
 -- Helpers
 sendStr :: Handle -> Maybe TLSCtx -> String -> IO ()
 sendStr _ (Just ctx) msg = sendData ctx $ L.fromChunks [C.pack msg]
-- 
cgit v1.2.3