more sensible error message

This commit is contained in:
Patrick Aldis 2026-03-09 16:17:25 +00:00
parent 6b2ae759ab
commit 6f37a60f3b

View File

@ -20,7 +20,7 @@ tokenHandler = requestHandler SMethod_TextDocumentSemanticTokensFull $ \req resp
responder $
case M.lookup (currentBufferUri req) p of
Nothing ->
Left $ TResponseError (InL LSPErrorCodes_RequestFailed) "Doc not bundle" Nothing
Left $ TResponseError (InL LSPErrorCodes_RequestFailed) "Doc not found in bundle" Nothing
Just (Left _) ->
Left $ TResponseError (InL LSPErrorCodes_RequestFailed) "Failed to parse" Nothing
Just (Right prog) ->