f.hs

makeLAG dn rif = do
  _lagInt <- makeServiceInterface dn rif
  _lagMembers <- newIORef []

  when (not (null (_rifDisabledLAGMembers rif))) $
    configWarnP WarnDisabledLAGMembers "LAG has disabled members"

  let isBalanceXor = TagBalanceXor `elem` (_lagInt ^. cIfTags)
      _lagLACP = not isBalanceXor
      _lagMemberIds = _rifEnabledLAGMembers rif
      _lagHashPolicy = if isBalanceXor
        then BalanceXor
        else HpLayer34

  let lag = LagInterface{..}
  pure lag