Fix document changes version bug (#186)

Should fix incorrect protocol usage causing this bug:
```
LSP[static_ls] LSP: incoming message parse error:
Error in $.params.edit.documentChanges[0]: key "version" not found
when processing
{"id":20,"params":{"kind":"quickfix","edit":{"documentChanges":[{"textDocument":{"uri":"file:///home/eugene/mercury-web-backend/src/Mercury/Underwriting/Internal/Workflows/CollectNabFlaggedTransactions.hs"},"edits":[{"range":{"start":{"line":6,"character"
:21},"end":{"line":7,"character":21}},"newText":""}]}]},"title":"Remove redundant imports in file (1 fix)"},"method":"codeAction/resolve","jsonrpc":"2.0"}
```

Author: josephsumabat

src/StaticLS/ProtoLSP.hs

@@ -37,6 +37,7 @@ import Data.HashMap.Strict (HashMap)
 import Data.HashMap.Strict qualified as HashMap
 import Data.LineCol (LineCol (..))
 import Data.LineColRange
+import Data.Map qualified as Map
 import Data.Path (AbsPath)
 import Data.Path qualified as Path
 import Data.Pos
@@ -154,23 +155,18 @@ editToProto rope edit =
   changeToProto rope <$> Edit.getChanges edit
 
 -- TODO: convert fsEdits
+
 sourceEditToProto :: SourceEdit -> StaticLsM LSP.WorkspaceEdit
 sourceEditToProto SourceEdit {fileEdits} = do
-  documentChanges <- for (HashMap.toList fileEdits) \(path, edit) -> do
+  changesKVs <- for (HashMap.toList fileEdits) $ \(path, edit) -> do
     rope <- IDE.Monad.getSourceRope path
-    pure
-      LSP.TextDocumentEdit
-        { _textDocument =
-            LSP.OptionalVersionedTextDocumentIdentifier
-              { _uri = absPathToUri path
-              , _version = LSP.InR LSP.Null
-              }
-        , _edits = LSP.InL <$> editToProto rope edit
-        }
+    let edits = editToProto rope edit
+    pure (absPathToUri path, edits)
+
   pure
     LSP.WorkspaceEdit
-      { _changes = Nothing
-      , _documentChanges = Just (fmap LSP.InL documentChanges)
+      { _changes = Just (Map.fromList changesKVs)
+      , _documentChanges = Nothing
       , _changeAnnotations = Nothing
       }