unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-21 15:28:15 +03:00
Code Issues Projects Releases Wiki Activity

Formatting

Browse Source
This commit is contained in:
Chris Penner 2023-07-19 16:38:30 -06:00
parent ea97050ea3
commit ec1385aede
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
unison-cli/src/Unison/LSP/Commands.hs
View File

@ -45,10 +45,14 @@ instance Aeson.ToJSON TextReplacement where
instance Aeson.FromJSON TextReplacement where
parseJSON = Aeson.withObject "TextReplacement" $ \o ->
TextReplacement
<$> o Aeson..: "range"
<*> o Aeson..: "description"
<*> o Aeson..: "replacementText"
<*> o Aeson..: "fileUri"
<$> o
Aeson..: "range"
<*> o
Aeson..: "description"
<*> o
Aeson..: "replacementText"
<*> o
Aeson..: "fileUri"
-- | Computes code actions for a document.
executeCommandHandler :: RequestMessage 'WorkspaceExecuteCommand -> (Either ResponseError Aeson.Value -> Lsp ()) -> Lsp ()
@ -69,9 +73,6 @@ executeCommandHandler m respond =
Left err -> Debug.debugM Debug.LSP "Error applying workspace edit" err
Right _ -> pure ()
)
-- let edit = WorkspaceEdit (Just $ HM.singleton fileUri (List [TextEdit range replacementText])) Nothing
-- lift $ sendRequest SWorkspaceApplyEdit (ApplyWorkspaceEditParams Nothing edit) (\_ -> pure ())
-- pure $ CodeLens range Nothing Nothing
_ -> invalidCmdErr
_ -> invalidCmdErr
pure Aeson.Null