Work in progress

RaphaelGauthier · Aug 24, 2021 · 17d82fc · 17d82fc
1 parent 8999e5e
commit 17d82fc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/webapp/sources/rudder/rudder-web/src/main/elm/rules/sources/DataTypes.elm b/webapp/sources/rudder/rudder-web/src/main/elm/rules/sources/DataTypes.elm
@@ -18,7 +18,7 @@ type alias Tag =
   , value : String
   }
 
-type ModalState = DeletionValidation Rule | DeactivationValidation Rule
+type ModalState = DeletionValidation Rule | DeactivationValidation Rule | DeletionValidationCat Category
 
 type RuleTarget = NodeGroupId String | Composition  RuleTarget RuleTarget | Special String | Node String | And (List RuleTarget) | Or (List RuleTarget)
 
@@ -183,6 +183,7 @@ type Msg
   | DisableRule
   | CloneRule Rule RuleId
   | OpenDeletionPopup Rule
+  | OpenDeletionPopupCat Category
   | OpenDeactivationPopup Rule
   | ClosePopup Msg
   | Ignore
diff --git a/webapp/sources/rudder/rudder-web/src/main/elm/rules/sources/Rules.elm b/webapp/sources/rudder/rudder-web/src/main/elm/rules/sources/Rules.elm
@@ -248,6 +248,12 @@ update msg model =
             ( { model | modal = Just (DeletionValidation rule)} , Cmd.none )
         _ -> (model, Cmd.none)
 
+    OpenDeletionPopupCar category ->
+      case model.mode of
+        EditCategory _ ->
+            ( { model | modal = Just (DeletionValidationCat category)} , Cmd.none )
+        _ -> (model, Cmd.none)
+
     OpenDeactivationPopup rule ->
       case model.mode of
         EditRule _ ->