Skip to content

Instantly share code, notes, and snippets.

public class Product
{
public string Name { get; set; }
public decimal Price { get; set; }
}
public class Trolley
{
public List<Product> Products { get; set; }
@dsyme
dsyme / args.txt
Last active August 19, 2022 19:19
-o:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\FSharp.Compiler.Service.dll
--debug:embedded
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\buildproperties.fs
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\FSComp.fs
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\FSIstrings.fs
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\UtilsStrings.fs
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\FSharp.Compiler.Service.AssemblyInfo.fs
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\illex.fs
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\pplex.fs
--embed:..\..\artifacts\obj\FSharp.Compiler.Service\Proto\netstandard2.0\lex.fs
This file has been truncated, but you can view the full file.
Cracking project options....
FSharpEmbedResourceText: Skipping generation of C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Compiler.Service\Debug\net472\FSComp.fs and C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Compiler.Service\Debug\net472\FSComp.resx from FSComp.txt since up-to-date
FSharpEmbedResourceText: Skipping generation of C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Compiler.Service\Debug\net472\FSIstrings.fs and C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Compiler.Service\Debug\net472\FSIstrings.resx from Interactive\FSIstrings.txt since up-to-date
FSharpEmbedResourceText: Skipping generation of C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Compiler.Service\Debug\net472\UtilsStrings.fs and C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Compiler.Service\Debug\net472\UtilsStrings.resx from Facilities\UtilsStrings.txt since up-to-date
Checking project....
Grouping symbol uses....
Type: FSharp.Compiler.TypedTree.TType
ty (2632 times)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2248,
Type: FSharp.Compiler.TypedTree.ValReprInfo
valReprInfo (159 times)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (1753,70--1753,81)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (1754,37--1754,48)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (2515,34--2515,45)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (2516,73--2516,84)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (2520,29--2520,40)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (2542,44--2542,55)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (2543,85--2543,96)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTreeOps.fs (2547,29--2547,40)
Cracking project options....
FSharpEmbedResourceText: Skipping generation of C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Build\Debug\netstandard2.0\FSBuild.fs and C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Build\Debug\netstandard2.0\FSBuild.resx from FSBuild.txt since up-to-date
FSharpEmbedResourceText: Skipping generation of C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Build\Debug\netstandard2.0\UtilsStrings.fs and C:\GitHub\dsyme\fsharp\artifacts\obj\FSharp.Build\Debug\netstandard2.0\UtilsStrings.resx from ..\Compiler\Facilities\UtilsStrings.txt since up-to-date
Checking project....
Grouping symbol uses....
Type: Microsoft.Build.Framework.ITaskItem
item (50 times)
C:\GitHub\dsyme\fsharp\src\FSharp.Build\FSharpCommandLineBuilder.fs (52,12--52,16)
C:\GitHub\dsyme\fsharp\src\FSharp.Build\FSharpCommandLineBuilder.fs (54,50--54,54)
C:\GitHub\dsyme\fsharp\src\FSharp.Build\Fsc.fs (142,12--142,16)
This file has been truncated, but you can view the full file.
Type: FSharp.Compiler.TypedTree.TType
ty (4303 times)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2248,12--2248,14)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2249,18--2249,20)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2254,15--2254,17)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2866,10--2866,12)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2866,20--2866,22)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2872,10--2872,12)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (2872,16--2872,18)
C:\GitHub\dsyme\fsharp\src\Compiler\TypedTree\TypedTree.fs (3001,21--3001,23)
open System
let transfers = [| Some 2,1 |]
let FetchInternalTransfers (includeConfirmeds: int) =
task {
let! mapPrioritiesTransfers =
task {
if includeConfirmeds > 1 then
open System
let transfers =[| Some (Guid.NewGuid()),DateTime.Now |]
let FetchInternalTransfers (includeConfirmeds: bool) (transferStep: string) =
task {
let totalCount = transfers.Length
let! mapPrioritiesTransfers =
open System
open System.Threading
open FSharp.Core.CompilerServices.StateMachineHelpers
type Cancellable<'T> =
| Cancellable of (CancellationToken -> Result<'T, exn>)
member inline cf.Invoke(ct: CancellationToken) =
ct.ThrowIfCancellationRequested()
let (Cancellable f) = cf
open System
open System.Threading
type Cancellable<'T> = delegate of CancellationToken -> 'T
type CancellableBuilder() =
member _.Delay(body: unit -> Cancellable<'T>) =
Cancellable(fun ct ->
let computation = body()