From 8aab7c623ff073edc23e73bac524ea90f33b48ec Mon Sep 17 00:00:00 2001
From: Michael Peyton Jones <me@michaelpj.com>
Date: Sat, 25 May 2024 19:22:32 +0100
Subject: [PATCH] Fix commment

---
 lsp-types/src/Language/LSP/Protocol/Message/Registration.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lsp-types/src/Language/LSP/Protocol/Message/Registration.hs b/lsp-types/src/Language/LSP/Protocol/Message/Registration.hs
index ace2919d..23d606b4 100644
--- a/lsp-types/src/Language/LSP/Protocol/Message/Registration.hs
+++ b/lsp-types/src/Language/LSP/Protocol/Message/Registration.hs
@@ -37,8 +37,8 @@ deriving stock instance Show (RegistrationOptions m) => Show (TRegistration m)
 -- TODO: can we do this generically somehow?
 -- This generates the function
 -- regHelper :: SMethod m
---           -> (( Show (ServerCapability m)
---               , ToJSON (ServerCapability m)
+--           -> (( Show (RegistrationOptions m)
+--               , ToJSON (RegistrationOptions m)
 --               , FromJSON ($regOptTcon m)
 --              => x)
 --           -> x