socket-unix-0.1.1.0: src/System/Socket/Family/Unix/Internal.hsc

-- |
-- Stability   :  experimental
-- Portability :  Linux, Unix

module System.Socket.Family.Unix.Internal
    ( Unix
    -- * Exceptions
    , eNoEntry
    ) where

import System.Socket (Family(..), Protocol(..), SocketException(..))

#include "hs_socket.h"

#if __GLASGOW_HASKELL__ < 800
#let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__)
#endif

-- | The [Unix domain socket]
-- (https://en.wikipedia.org/wiki/Unix_domain_socket)
data Unix

instance Family Unix where
    familyNumber _ = (#const AF_UNIX)

instance Protocol Unix where
    protocolNumber _ = 0

-- | > SocketException "No such file or directory"
eNoEntry :: SocketException
eNoEntry = SocketException (#const ENOENT)