Add return types to F# completions

2 files changed, 12 insertions, 0 deletions

diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpSymbolHelper.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpSymbolHelper.fs
index eb50b4fe13..ec82b9f0b4 100644
--- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpSymbolHelper.fs
+++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpSymbolHelper.fs
@@ -754,6 +754,14 @@ module SymbolTooltips =
       match findVal with
       | Some v -> v
       | None -> apc.Group.OverallType.Format displayContext
+    
+    let returnType (symbol:FSharpSymbolUse) =
+        match symbol with
+        | MemberFunctionOrValue m ->
+            LoggingService.logDebug "%s" m.DisplayName
+            Some m.ReturnParameter.Type
+        //| Entity c ->
+        | _ -> None
 
     let footerForType (entity:FSharpSymbolUse) =
         match entity with
diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpTextEditorCompletion.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpTextEditorCompletion.fs
index 7cd086e8b1..7855bf1d1a 100644
--- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpTextEditorCompletion.fs
+++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpTextEditorCompletion.fs
@@ -30,6 +30,10 @@ type FSharpMemberCompletionData(name, icon, symbol:FSharpSymbolUse, overloads:FS
 
     /// Check if the datatip has multiple overloads
     override x.HasOverloads = not (List.isEmpty overloads)
+    override x.GetRightSideDescription _selected =
+        SymbolTooltips.returnType symbol
+        |> Option.map (fun t -> "<small>" + syntaxHighlight (t.Format symbol.DisplayContext) + "</small>")
+        |> Option.fill ""
 
     /// Split apart the elements into separate overloads
     override x.OverloadedData =