fix preview to match ClauseInCase changes

jxxcarlson · May 28, 2024 · 3f02e51 · 3f02e51
1 parent d692739
commit 3f02e51
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/preview/elm.json b/preview/elm.json
@@ -8,6 +8,7 @@
     "dependencies": {
         "direct": {
             "elm/core": "1.0.5",
+            "elmcraft/core-extra": "2.0.0",
             "jfmengels/elm-review": "2.13.2",
             "stil4m/elm-syntax": "7.3.2"
         },
@@ -18,6 +19,7 @@
             "elm/parser": "1.1.0",
             "elm/project-metadata-utils": "1.0.2",
             "elm/random": "1.0.0",
+            "elm/regex": "1.0.0",
             "elm/time": "1.0.0",
             "elm/virtual-dom": "1.0.3",
             "elm-explorations/test": "2.2.0",
@@ -32,4 +34,4 @@
         },
         "indirect": {}
     }
-}
+}
diff --git a/preview/src/ReviewConfig.elm b/preview/src/ReviewConfig.elm
@@ -17,5 +17,10 @@ import Review.Rule exposing (Rule)
 
 config : List Rule
 config =
-    [ Install.ClauseInCase.rule
+    [ Install.ClauseInCase.init
+        "Backend"
+        "updateFromFrontend"
+        "ResetCounter"
+        "( { model | counter = 0 }, broadcast (CounterNewValue 0 clientId) )"
+        |> Install.ClauseInCase.makeRule
     ]