http-pony-0.1.0.0: src/Network/HTTP/Pony/Helper.hs

-- | Helper

module Network.HTTP.Pony.Helper where

import Control.Monad.IO.Class (MonadIO(..))
import Network.Socket (Socket, ShutdownCmd(..), shutdown)

infixr 0 -
f - x = f x

shutdownSend :: (MonadIO m) => Socket -> m ()
shutdownSend = liftIO . flip shutdown ShutdownSend

shutdownReceive :: (MonadIO m) => Socket -> m ()
shutdownReceive = liftIO . flip shutdown ShutdownReceive