-- | 'IpPermission' constructor.
--
-- The fields accessible through corresponding lenses are:
--
-- * 'ipFromPort' @::@ 'Maybe' 'Int'
--
-- * 'ipIpProtocol' @::@ 'Text'
--
-- * 'ipIpRanges' @::@ ['IpRange']
--
-- * 'ipToPort' @::@ 'Maybe' 'Int'
--
-- * 'ipUserIdGroupPairs' @::@ ['UserIdGroupPair']
--
ipPermission :: Text -- ^ 'ipIpProtocol'
             -> IpPermission
ipPermission p1 = IpPermission
    { _ipIpProtocol       = p1
    , _ipFromPort         = Nothing
    , _ipToPort           = Nothing
    , _ipUserIdGroupPairs = mempty
    , _ipIpRanges         = mempty
    }
ipPermission :: Text -- ^ 'ipIpProtocol'
             -> IpPermission
ipPermission p1 = IpPermission
    { _ipIpProtocol       = p1
    , _ipFromPort         = Nothing
    , _ipToPort           = Nothing
    , _ipUserIdGroupPairs = mempty
    , _ipIpRanges         = mempty
    }
ipPermission p1 = IpPermission
    { _ipIpProtocol       = p1
    , _ipFromPort         = Nothing
    , _ipToPort           = Nothing
    , _ipUserIdGroupPairs = mempty
    , _ipIpRanges         = mempty
    }