HttpPipes.hs

import           Pipes                                   
import           Pipes.HTTP                              
import qualified Pipes.Prelude    as P                   
import qualified Pipes.ByteString as PB                  
import qualified Data.ByteString  as BS                  
                                                         
url = "https://typeclasses.com"                          
                                                         
fetch url action =                                       
  do                                                     
    req <- parseRequest url                              
    m <- newManager tlsManagerSettings                   
    withHTTP req m action                                
                                                         
main =                                                   
    fetch url $ \response ->                             
        P.sum (responseBody response >-> P.map BS.length)