--- a/haskell-ts-mode.el	Thu Dec 12 23:05:57 2024 +1000
+++ b/haskell-ts-mode.el	Thu Dec 12 23:29:55 2024 +1000
@@ -358,10 +358,10 @@
   (setq-local comment-start "-- ")
   (setq-local comment-use-syntax t)
   (setq-local comment-start-skip "\\(?: \\|^\\)-+")
-  ;; Elecric
+  ;; Electric
   (setq-local electric-pair-pairs
 	      '((?` . ?`) (?\( . ?\)) (?{ . ?}) (?\" . ?\") (?\[ . ?\])))
-  ;; Nav
+  ;; Navigation
   (setq-local treesit-defun-name-function 'haskell-ts-defun-name)
   (setq-local treesit-defun-type-regexp
 	      ;; Since haskell is strict functional, any 2nd level
@@ -438,13 +438,6 @@
 (defun haskell-ts-haskell-session ()
   (get-buffer-process "*haskell*"))
 
-(defvar eglot-server-programs)
-
-(defun haskell-ts-setup-eglot()
-  (interactive)
-  (add-to-list 'eglot-server-programs
-	       '(haskell-ts-mode . ("haskell-language-server-wrapper" "--lsp"))))
-
 (when (treesit-ready-p 'haskell)
   (add-to-list 'auto-mode-alist '("\\.hs\\'" . haskell-ts-mode)))