fantomas format

Author: nhirschey

src/FSharp.Formatting.Literate/Literate.fs

@@ -543,6 +543,7 @@ type Literate private () =
             | _ -> parseOptions
 
         let md = ParsePynb.pynbToMarkdown input
+
         let doc =
             Literate.ParseMarkdownString(
                 md,

src/fsdocs-tool/BuildCommand.fs

@@ -351,18 +351,21 @@ type internal DocContent
                           printfn "  preparing %s --> %s" inputFileFullPath outputFileRelativeToRoot
 
                           let evaluateNotebook ipynbFile =
-                            let psi = 
-                                ProcessStartInfo(fileName = "dotnet",
-                                                 arguments = $"repl --run {ipynbFile} --default-kernel fsharp --exit-after-run --output-path {ipynbFile}",
-                                                 UseShellExecute = false,
-                                                 CreateNoWindow = true)
-
-                            let p = Process.Start(psi)
-                            p.WaitForExit()
+                              let psi =
+                                  ProcessStartInfo(
+                                      fileName = "dotnet",
+                                      arguments =
+                                          $"repl --run {ipynbFile} --default-kernel fsharp --exit-after-run --output-path {ipynbFile}",
+                                      UseShellExecute = false,
+                                      CreateNoWindow = true
+                                  )
+
+                              let p = Process.Start(psi)
+                              p.WaitForExit()
 
                           if evaluate then
-                            printfn $"  evaluating {inputFileFullPath} with dotnet-repl"
-                            evaluateNotebook inputFileFullPath
+                              printfn $"  evaluating {inputFileFullPath} with dotnet-repl"
+                              evaluateNotebook inputFileFullPath
 
 
                           let model =
@@ -399,7 +402,7 @@ type internal DocContent
                                        template,
                                        outputFileFullPath
                                    )))
-                        
+
                       else if mainRun then
                           yield
                               (None,

tests/FSharp.Literate.Tests/DocContentTests.fs

@@ -288,4 +288,4 @@ let ``ipynb notebook evaluates`` () =
     let ipynbOut = rootOutputFolderAsGiven </> "eval.html" |> File.ReadAllText
 
     ipynbOut |> shouldContainText "10007"
-*)
+*)

tests/FSharp.Literate.Tests/LiterateTests.fs

@@ -1435,7 +1435,8 @@ let goodbye = 2
 
 [<Test>]
 let ``md --> pynb --> md comes back the same`` () =
-    let mdIn = """Heading
+    let mdIn =
+        """Heading
 =======
 
 |  Col1 | Col2 |
@@ -1453,13 +1454,17 @@ let add a b = a + b
 ```python
 ```
 """
-    let mdOut = 
-        Literate.ParseMarkdownString(mdIn, 
-                                     parseOptions = 
-                                        (MarkdownParseOptions.ParseCodeAsOther
-                                         ||| MarkdownParseOptions.ParseNonCodeAsOther))
-        |> Literate.ToPynb 
+
+    let mdOut =
+        Literate.ParseMarkdownString(
+            mdIn,
+            parseOptions =
+                (MarkdownParseOptions.ParseCodeAsOther
+                 ||| MarkdownParseOptions.ParseNonCodeAsOther)
+        )
+        |> Literate.ToPynb
         |> ParsePynb.pynbStringToMarkdown
+
     mdOut |> shouldEqual mdIn
 
 [<Test>]