CSharpLanguageServer.Handlers.Hover: rewrite in a more functional approach

Author: razzmatazz

src/CSharpLanguageServer/Handlers/Hover.fs

@@ -5,24 +5,22 @@ open Ionide.LanguageServerProtocol.JsonRpc
 
 open CSharpLanguageServer
 open CSharpLanguageServer.State
+open CSharpLanguageServer.Util
 
 [<RequireQualifiedAccess>]
 module Hover =
-    let provider (_: ClientCapabilities) : U2<bool, HoverOptions> option = Some(U2.C1 true)
+    let provider (_cc: ClientCapabilities) : U2<bool, HoverOptions> option = Some(U2.C1 true)
 
-    let handle (context: ServerRequestContext) (p: HoverParams) : AsyncLspResult<Hover option> = async {
-        match! context.FindSymbol' p.TextDocument.Uri p.Position with
-        | None -> return None |> LspResult.success
-        | Some(symbol, _, _) ->
-            let content = DocumentationUtil.markdownDocForSymbolWithSignature symbol
+    let makeHoverForSymbol symbol =
+        let content = DocumentationUtil.markdownDocForSymbolWithSignature symbol
 
-            let hover =
-                { Contents =
-                    { Kind = MarkupKind.Markdown
-                      Value = content }
-                    |> U3.C1
-                  // TODO: Support range
-                  Range = None }
+        { Contents =
+            { Kind = MarkupKind.Markdown
+              Value = content }
+            |> U3.C1
+          Range = None } // TODO: Support range
 
-            return hover |> Some |> LspResult.success
-    }
+    let handle (context: ServerRequestContext) (p: HoverParams) : AsyncLspResult<Hover option> =
+        context.FindSymbol p.TextDocument.Uri p.Position
+        |> Async.map (Option.map makeHoverForSymbol)
+        |> Async.map LspResult.success