Don't send file contents on save

nvarner · nvarner · commit 5bfd1022ea48 · 2025-11-18T18:56:38.000-06:00
diff --git a/src/Server.hs b/src/Server.hs
@@ -102,7 +102,7 @@ syncOptions =
       _change = Just TextDocumentSyncKind_Incremental, -- receive change notifications from the client
       _willSave = Just False, -- receive willSave notifications from the client
       _willSaveWaitUntil = Just False, -- receive willSave notifications from the client
-      _save = Just $ InR $ SaveOptions (Just True) -- includes the document content on save, so that we don't have to read it from the disk (not sure if this is still true in lsp 2)
+      _save = Just $ InR $ SaveOptions (Just False)
     }
 
 -- handlers of the LSP server

Original file line number	Diff line number	Diff line change
`@@ -102,7 +102,7 @@ syncOptions =`
`102`	`102`	`_change = Just TextDocumentSyncKind_Incremental, -- receive change notifications from the client`
`103`	`103`	`_willSave = Just False, -- receive willSave notifications from the client`
`104`	`104`	`_willSaveWaitUntil = Just False, -- receive willSave notifications from the client`
`105`		`- _save = Just $ InR $ SaveOptions (Just True) -- includes the document content on save, so that we don't have to read it from the disk (not sure if this is still true in lsp 2)`
	`105`	`+ _save = Just $ InR $ SaveOptions (Just False)`
`106`	`106`	`}`
`107`	`107`
`108`	`108`	`-- handlers of the LSP server`