fixed a little mistake in du hover fix

Author: Eli Dowling

src/FSharpLanguageServer/Program.fs

@@ -363,7 +363,7 @@ type Server(client: ILanguageClient,useCache:bool) =
             )
 
         //Adds one to the position we are looking for, for each match before our pos because we add an extra space at those points
-        let newPos=indicies|>List.rev|>List.fold(fun cPos matchPos -> if cPos<=matchPos then cPos+1 else cPos ) charPos
+        let newPos=indicies|>List.rev|>List.fold(fun cPos matchPos -> if matchPos<=cPos then cPos+1 else cPos ) charPos
         newLine,newPos
 
     /// Find the symbol at a position
@@ -375,7 +375,7 @@ type Server(client: ILanguageClient,useCache:bool) =
 
             let line, charPos =fixLineForIdentifying line position.character
 
-            let maybeId = QuickParse.GetCompleteIdentifierIsland false line (position.character)
+            let maybeId = QuickParse.GetCompleteIdentifierIsland false line (charPos)
             match c, maybeId with
             | Error(errors), _ ->
                 lgError "'SymbolAt' Check failed, errors: %A" (errors)
@@ -699,7 +699,7 @@ type Server(client: ILanguageClient,useCache:bool) =
                 let line, charPos = fixLineForIdentifying line p.position.character 
                 let addedChars=charPos-p.position.character
 
-                let maybeId = QuickParse.GetCompleteIdentifierIsland false line (charPos)
+                let maybeId = QuickParse.GetCompleteIdentifierIsland false line charPos
                 match c, maybeId with
                 | Error(errors), _ ->
                     lgError "Check failed, errors: {errors}"  (errors)

tests/Expecto/FsharpLanguageServer/ServerTests.fs

@@ -225,6 +225,12 @@ let serverTests=
         | Some hover -> Expect.isNonEmpty hover.contents "Hover list is empty"
     }
 
+    test "hover over first char of DU aginst pipe" {
+        let client, server = createServerAndReadFile("MainProject", "Hover.fs")
+        match server.Hover(textDocumentPosition("MainProject", "Hover.fs", 28, 6)) |> Async.RunSynchronously with 
+        | None -> failtest "No hover"
+        | Some hover -> Expect.isNonEmpty hover.contents "Hover list is empty"
+    }
     //See issue #106
     test "hover over middle of member name" {
         let client, server = createServerAndReadFile("MainProject", "Hover.fs")