diff options
author | Julien Dessaux | 2011-05-06 19:15:40 +0200 |
---|---|---|
committer | Julien Dessaux | 2011-05-06 19:15:40 +0200 |
commit | a8c0c8578718098e7a0482678ab727533ee09862 (patch) | |
tree | c9a1d07d47e6089ba1fadacf595fd9dd8039a03e /Hsbot/Utils.hs | |
parent | Added a shitload of ducks to recognize and kill! (diff) | |
download | hsbot-a8c0c8578718098e7a0482678ab727533ee09862.tar.gz hsbot-a8c0c8578718098e7a0482678ab727533ee09862.tar.bz2 hsbot-a8c0c8578718098e7a0482678ab727533ee09862.zip |
Made the Plugin monad a Reader instead of a State since it can't change.
Diffstat (limited to '')
-rw-r--r-- | Hsbot/Utils.hs | 4 |
1 files changed, 0 insertions, 4 deletions
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] |