From c73e836c71474e9bd7abfe102e73d4021ee5f838 Mon Sep 17 00:00:00 2001
From: Kurt Schelfthout <kurt.schelfthout@gmail.com>
Date: Sun, 14 Oct 2018 16:25:01 +0100
Subject: [PATCH] Allow FSI evaluation option for FSharp.Formatting.

---
 src/app/Fake.DotNet.FSFormatting/FSFormatting.fs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/app/Fake.DotNet.FSFormatting/FSFormatting.fs b/src/app/Fake.DotNet.FSFormatting/FSFormatting.fs
index 364838e9851..9f6a4e61672 100644
--- a/src/app/Fake.DotNet.FSFormatting/FSFormatting.fs
+++ b/src/app/Fake.DotNet.FSFormatting/FSFormatting.fs
@@ -27,7 +27,8 @@ type LiterateArguments =
       OutputDirectory : string 
       Template : string
       ProjectParameters : (string * string) list
-      LayoutRoots : string list }
+      LayoutRoots : string list 
+      FsiEval : bool }
 
 let defaultLiterateArguments =
     { ToolPath = toolPath
@@ -35,7 +36,8 @@ let defaultLiterateArguments =
       OutputDirectory = ""
       Template = ""
       ProjectParameters = []
-      LayoutRoots = [] }
+      LayoutRoots = [] 
+      FsiEval = false }
 
 let createDocs p =
     let arguments = (p:LiterateArguments->LiterateArguments) defaultLiterateArguments
@@ -45,6 +47,7 @@ let createDocs p =
     let source = arguments.Source
     let template = arguments.Template
     let outputDir = arguments.OutputDirectory
+    let fsiEval = if arguments.FsiEval then [ "--fsieval" ] else []
 
     let command = 
         arguments.ProjectParameters
@@ -52,7 +55,7 @@ let createDocs p =
         |> Seq.concat
         |> Seq.append 
                (["literate"; "--processdirectory" ] @ layoutroots @ [ "--inputdirectory"; source; "--templatefile"; template; 
-                  "--outputDirectory"; outputDir; "--replacements" ])
+                  "--outputDirectory"; outputDir] @ fsiEval @ [ "--replacements" ])
         |> Seq.map (fun s -> 
                if s.StartsWith "\"" then s
                else sprintf "\"%s\"" s)