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