applyMod (AddAttribute attr) = execState $ do
  cannotHave <- use cannotHaveAttributes
  unless (attr `elem` cannotHave) $ attributes <>= [attr]
applyMod (AddAttribute attr) = execState $ do
  cannotHave <- use cannotHaveAttributes
  unless (attr `elem` cannotHave) $ attributes <>= [attr]
applyMod (AddAttribute attr) = execState $ do
  cannotHave <- use cannotHaveAttributes
  unless (attr `elem` cannotHave) $ attributes <>= [attr]