bjoli/rprint
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

first commit

Browse source
This commit is contained in:
Linus Björnstam 2026-04-02 11:38:44 +02:00
parent 275f1bb6d2
commit 469de83cdc
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Library.fs
View file

@ -21,9 +21,18 @@ module Rprint =
let original = printer.Value let original = printer.Value
// Bind om till StringBuilder // Bind om till StringBuilder
printer.Value <- fun s -> sb.AppendLine s |> ignore printer.Value <- fun s -> sb.Append s |> ignore
try try
f () f ()
sb.ToString().TrimEnd() sb.ToString().TrimEnd()
finally finally
printer.Value <- original printer.Value <- original
let withOutputToStringBuilder (builder: System.Text.StringBuilder) f =
let original = printer.Value
printer.Value <- (fun s -> builder.Append(s) |> ignore)
try
f ()
finally
printer.Value <- original