From f3f81b5acd3c7a2cf32fdfd46789bfe521cc0fb9 Mon Sep 17 00:00:00 2001
From: Oliver Marriott <hello@omarriott.com>
Date: Sun, 8 Sep 2024 13:32:35 +1000
Subject: [PATCH] refactor: use (case) instead of (match)

Old code is old.
---
 fnl/hotpot/api/diagnostics.fnl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/fnl/hotpot/api/diagnostics.fnl b/fnl/hotpot/api/diagnostics.fnl
index ad4ee793..f2690185 100644
--- a/fnl/hotpot/api/diagnostics.fnl
+++ b/fnl/hotpot/api/diagnostics.fnl
@@ -118,7 +118,7 @@
                              {:buffer buf
                               :group au-group
                               :desc (.. "Hotpot diagnostics auto-detach on filetype change for buf#" buf)
-                              :callback #(match $1
+                              :callback #(case $1
                                            {:match "fennel"} nil
                                            _ (M.detach buf))})
     (record-attachment buf ns au-group handler)
@@ -134,14 +134,14 @@
   when given 0, this id will be the 'real' buffer id, otherwise it will match
   the original `buf` argument."
   (let [buf (resolve-buf-id user-buf)]
-    (match (data-for-buf buf)
+    (case (data-for-buf buf)
       nil (do-attach buf))
     (values buf)))
 
 (fn M.detach [user-buf ?opts]
   "Remove hotpot-diagnostic instance from buffer."
   (let [buf (resolve-buf-id user-buf)]
-    (match (data-for-buf buf)
+    (case (data-for-buf buf)
       {: ns : au-group} (do
                           (api.nvim_clear_autocmds {:group au-group
                                                     :buffer buf})
@@ -164,7 +164,7 @@
 (fn M.enable []
   "Enables autocommand to attach diagnostics to Fennel filetype buffers"
   (fn attach-hotpot-diagnostics [event]
-    (match event
+    (case event
       {:match "fennel" :buf buf} (M.attach buf))
     (values nil))
   (when (not ft-autocmd-data.au-group)