-- | 'Listener' constructor.
--
-- The fields accessible through corresponding lenses are:
--
-- * 'lPort' @::@ 'Maybe' 'Int'
--
-- * 'lProtocol' @::@ 'Maybe' 'Text'
--
listener :: Listener
listener = Listener
    { _lProtocol = Nothing
    , _lPort     = Nothing
    }
listener :: Listener
listener = Listener
    { _lProtocol = Nothing
    , _lPort     = Nothing
    }
listener = Listener
    { _lProtocol = Nothing
    , _lPort     = Nothing
    }