Haskell chunked/streamed file downloads with progress notifications

haskellChunkDownload.hs

import           Data.Conduit ((.|))
import qualified Data.Conduit as C
import qualified Data.Conduit.Combinators as C
import           Network.HTTP.Req ((/:))
import qualified Network.HTTP.Req as R
import qualified Network.HTTP.Req.Conduit as R

downloadChunkedUrl
  :: FilePath
  -> (ByteString -> IO ())
  -> IO ()
downloadChunkedUrl dest onProgress = do
  let httpsUrl = undefined  -- Set however you usually do with req
  let httpsOptions = mempty
  
  R.runReq R.defaultHttpConfig $ do
    R.reqBr R.GET httpsUrl R.NoReqBody httpsOptions $ \r ->
      C.runConduitRes $
        R.responseBodySource r
          .| C.iterM (liftIO . onProgress)
          .| C.sinkFile dest

  pure ()