From 1ea5c02ab63fbf8cd0623c04f6963012ccbf9ea2 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Fri, 1 Mar 2013 21:45:15 +0100 Subject: [PATCH] remove dead code from Network.Xmpp.Tls --- source/Network/Xmpp/Tls.hs | 30 ------------------------------ 1 file changed, 30 deletions(-) diff --git a/source/Network/Xmpp/Tls.hs b/source/Network/Xmpp/Tls.hs index 4f73248..f684beb 100644 --- a/source/Network/Xmpp/Tls.hs +++ b/source/Network/Xmpp/Tls.hs @@ -33,36 +33,6 @@ mkBackend con = Backend { backendSend = \bs -> void (streamSend con bs) , backendFlush = streamFlush con , backendClose = streamClose con } - where - cutBytes n = do - liftIO $ putStrLn "awaiting" - mbs <- await - liftIO $ putStrLn "done awaiting" - case mbs of - Nothing -> return BS.empty - Just bs -> do - let (a, b) = BS.splitAt n bs - liftIO . putStrLn $ - "remaining" ++ (show $ BS.length b) ++ " of " ++ (show n) - - unless (BS.null b) $ leftover b - return a - - -cutBytes n = do - liftIO $ putStrLn "awaiting" - mbs <- await - liftIO $ putStrLn "done awaiting" - case mbs of - Nothing -> return False - Just bs -> do - let (a, b) = BS.splitAt n bs - liftIO . putStrLn $ - "remaining" ++ (show $ BS.length b) ++ " of " ++ (show n) - - unless (BS.null b) $ leftover b - return True - starttlsE :: Element starttlsE = Element "{urn:ietf:params:xml:ns:xmpp-tls}starttls" [] []