X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FFiles.hs;h=59d51cef5a078212749787c9d6f5b41f089112f0;hb=bd554ce2292b667f7870e9643a1107a81063a596;hp=48390940a990419aa7024fe0f65f778200b3ba47;hpb=4de144bafd28f3f2a8067a896bedb1430f68f745;p=lsp-test.git diff --git a/src/Language/Haskell/LSP/Test/Files.hs b/src/Language/Haskell/LSP/Test/Files.hs index 4839094..59d51ce 100644 --- a/src/Language/Haskell/LSP/Test/Files.hs +++ b/src/Language/Haskell/LSP/Test/Files.hs @@ -44,7 +44,7 @@ mapUris f event = FromServer t msg -> FromServer t (fromServerMsg msg) where - --TODO: Handle all other URLs that might need swapped + --TODO: Handle all other URIs that might need swapped fromClientMsg (NotDidOpenTextDocument n) = NotDidOpenTextDocument $ swapUri (params . textDocument) n fromClientMsg (NotDidChangeTextDocument n) = NotDidChangeTextDocument $ swapUri (params . textDocument) n fromClientMsg (NotWillSaveTextDocument n) = NotWillSaveTextDocument $ swapUri (params . textDocument) n