fix pretty printing in FSI by referencing FSharp.Compiler.Interactive.Settings.dll

Author: nosami

MonoDevelop.FSharpi.Service/MonoDevelop.FSharpInteractive.Service.fsproj

@@ -1,4 +1,4 @@
-<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
@@ -19,19 +19,16 @@
     <DefineConstants>DEBUG</DefineConstants>
     <ErrorReport>prompt</ErrorReport>
     <ExternalConsole>true</ExternalConsole>
-    <PlatformTarget>
-    </PlatformTarget>
+    <PlatformTarget></PlatformTarget>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <Optimize>true</Optimize>
     <OutputPath>..\bin</OutputPath>
-    <DefineConstants>
-    </DefineConstants>
+    <DefineConstants></DefineConstants>
     <ErrorReport>prompt</ErrorReport>
     <ExternalConsole>true</ExternalConsole>
     <GenerateTailCalls>true</GenerateTailCalls>
-    <PlatformTarget>
-    </PlatformTarget>
+    <PlatformTarget></PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
     <FSharpTargetsPath>$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\FSharp\Microsoft.FSharp.Targets</FSharpTargetsPath>
@@ -47,7 +44,9 @@
     <Reference Include="System" />
     <Reference Include="System.Core" />
     <Reference Include="System.Numerics" />
-    <Reference Include="FSharp.Compiler.Interactive.Settings" />
+    <Reference Include="FSharp.Compiler.Interactive.Settings">
+      <HintPath>lib\FSharp.Compiler.Interactive.Settings.dll</HintPath>
+    </Reference>
   </ItemGroup>
   <ItemGroup>
     <Compile Include="AssemblyInfo.fs" />

MonoDevelop.FSharpi.Service/Program.fs

@@ -5,6 +5,7 @@ open System.Text
 open Newtonsoft.Json
 open Microsoft.FSharp.Compiler.SourceCodeServices
 open Microsoft.FSharp.Compiler.Interactive.Shell
+
 open MonoDevelop.FSharp.Shared
 /// Wrapper for fsi with support for returning completions
 module CompletionServer =
@@ -21,9 +22,10 @@ module CompletionServer =
 
         let serializer = JsonSerializer.Create()
 
-        let fsiConfig = FsiEvaluationSession.GetDefaultConfiguration(Settings.fsi, true)
-        let fsiSession = FsiEvaluationSession.Create(fsiConfig, argv, inStream, outStream, outStream, true)
+        let fsiConfig = FsiEvaluationSession.GetDefaultConfiguration(Microsoft.FSharp.Compiler.Interactive.Settings.fsi, true)
 
+        let fsiSession = FsiEvaluationSession.Create(fsiConfig, argv, inStream, outStream, outStream, true)
+       
         let (|Input|_|) (command: string) =
             if command.StartsWith("input ") then
                 Some(command.[6..])

MonoDevelop.FSharpi.Service/lib/FSharp.Compiler.Interactive.Settings.dll

@@ -1,7 +1,7 @@
 source https://nuget.org/api/v2/
 
 nuget ExtCore framework: >= net40
-nuget FSharp.Compiler.Service >= 2
+nuget FSharp.Compiler.Service = 2.0.0.6
 nuget FSharp.Core = 4.0.0.1
 nuget Fantomas framework: >= net45
 nuget FSharp.Compiler.CodeDom 0.9.2 framework: >= net40