{-|
Helper module for working network addresses (which may be Unix sockets).
-}


module Test.Sandwich.Contexts.Types.Network where

import Network.Socket
import Relude


data NetworkAddress =
  NetworkAddressTCP { NetworkAddress -> String
networkAddressTcpHostname :: String
                    , NetworkAddress -> PortNumber
networkAddressTcpPort :: PortNumber }
  | NetworkAddressUnix { NetworkAddress -> String
networkAddressUnixPath :: String }
  deriving (Int -> NetworkAddress -> ShowS
[NetworkAddress] -> ShowS
NetworkAddress -> String
(Int -> NetworkAddress -> ShowS)
-> (NetworkAddress -> String)
-> ([NetworkAddress] -> ShowS)
-> Show NetworkAddress
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NetworkAddress -> ShowS
showsPrec :: Int -> NetworkAddress -> ShowS
$cshow :: NetworkAddress -> String
show :: NetworkAddress -> String
$cshowList :: [NetworkAddress] -> ShowS
showList :: [NetworkAddress] -> ShowS
Show, NetworkAddress -> NetworkAddress -> Bool
(NetworkAddress -> NetworkAddress -> Bool)
-> (NetworkAddress -> NetworkAddress -> Bool) -> Eq NetworkAddress
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NetworkAddress -> NetworkAddress -> Bool
== :: NetworkAddress -> NetworkAddress -> Bool
$c/= :: NetworkAddress -> NetworkAddress -> Bool
/= :: NetworkAddress -> NetworkAddress -> Bool
Eq)