Apply suggestions from michaelpj

Co-authored-by: Michael Peyton Jones <[email protected]>

Author: joyfulmantis

lsp-types/src/Language/LSP/Protocol/Message/Types.hs

@@ -132,6 +132,7 @@ data TResponseMessage (m :: Method f Request) =
   TResponseMessage
     { _jsonrpc :: Text
     , _id      :: Maybe (LspId m)
+    -- TODO: use `TResponseError m` for the error type, this will require quite a lot of adaptation downstream
     , _result  :: Either ResponseError (MessageResult m)
     } deriving stock Generic