Fix bug in GetInterfaceStubCodeAction

ionide · Jun 13, 2019 · afac951 · afac951
1 parent db2bd0b
commit afac951
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/FsAutoComplete/FsAutoComplete.Lsp.fs b/src/FsAutoComplete/FsAutoComplete.Lsp.fs
@@ -989,8 +989,8 @@ type FsharpLspServer(commands: Commands, lspClient: FSharpLspClient) =
             let pos = protocolPosToPos p.Range.Start
             let! res = x.HandleTypeCheckCodeAction fn pos (fun tyRes line lines -> commands.GetInterfaceStub tyRes pos lines line)
             let res =
-                match res.[0] with
-                | CoreResponse.InterfaceStub (text, position) ->
+                match res with
+                | CoreResponse.InterfaceStub (text, position)::_ ->
                     let range = {
                         Start = fcsPosToLsp position
                         End = fcsPosToLsp position