-------------------------------------------------------------------------------- -- | -- Module : Database.EventStore.Internal.EndPoint -- Copyright : (C) 2016 Yorick Laupa -- License : (see the file LICENSE) -- -- Maintainer : Yorick Laupa -- Stability : provisional -- Portability : non-portable -- -------------------------------------------------------------------------------- module Database.EventStore.Internal.EndPoint where -------------------------------------------------------------------------------- import Prelude (String) -------------------------------------------------------------------------------- import Database.EventStore.Internal.Prelude -------------------------------------------------------------------------------- -- | Gathers both an IPv4 and a port. data EndPoint = EndPoint { endPointIp :: !String , endPointPort :: !Int } deriving Eq -------------------------------------------------------------------------------- instance Show EndPoint where show (EndPoint h p) = h <> ":" <> show p -------------------------------------------------------------------------------- emptyEndPoint :: EndPoint emptyEndPoint = EndPoint "" 0 -------------------------------------------------------------------------------- data NodeEndPoints = NodeEndPoints { tcpEndPoint :: !EndPoint , secureEndPoint :: !(Maybe EndPoint) } deriving Show