network-unexceptional-0.1.0.0: src/Network/Unexceptional/Chunks.hs

{-# language BangPatterns #-}
{-# language DuplicateRecordFields #-}
{-# language PatternSynonyms #-}
{-# language LambdaCase #-}
{-# language NamedFieldPuns #-}

module Network.Unexceptional.Chunks
  ( send
  ) where

import Foreign.C.Error (Errno)
import Network.Socket (Socket)
import Data.Bytes.Chunks (Chunks)

import qualified Data.Bytes.Chunks as Chunks
import qualified Network.Unexceptional.Bytes as NB

-- | Send the entire byte sequence. This call POSIX @send@ in a loop
-- until all of the bytes have been sent.
send ::
     Socket
  -> Chunks
  -> IO (Either Errno ())
send !s cs = NB.send s (Chunks.concat cs)