| namespace Gist | |
| type Ctx<'a, 'b>(a: 'a, b: 'b) = | |
| member _.A = a | |
| member _.B = b | |
| type Ctx<'a>(a: 'a) = | |
| member _.Create<'t>(t: 't) = Ctx<'a, 't>(a, t) | |
| [<Struct>] |
| #r "nuget: Octokit" | |
| open Octokit | |
| open System | |
| open System.IO | |
| open System.Text.RegularExpressions | |
| // Configuration | |
| type Config = { | |
| Token: string | |
| RepoUrl: string |
| module ErrorMerging | |
| open FsToolkit.ErrorHandling | |
| (* Regular approach with two distinct error types *) | |
| type SensorReadings = int | |
| type EngineError = | |
| | Overheated |
| #if INTERACTIVE | |
| #r "nuget: FsToolkit.ErrorHandling" | |
| #endif | |
| open System.Text.Json | |
| open FsToolkit.ErrorHandling | |
| /// All Error DUs should implement this to "take part" in generalised fault reporting. | |
| [<Interface>] | |
| type IFault = |
| // | |
| // For users of Bundler & Minifier 2022+ | |
| // https://marketplace.visualstudio.com/items?itemName=Failwyn.BundlerMinifier64 | |
| // | |
| // Check to see if output and input files in bundleconfig.json exist. | |
| // | |
| open System | |
| open System.IO | |
| open System.Text |
| open System | |
| open System.Text.RegularExpressions | |
| let (|Lower|) (s: string) = s.ToLower() | |
| let (|LowerInvariant|) (s: string) = s.ToLowerInvariant() | |
| let (|Upper|) (s: string) = s.ToUpper() | |
| let (|UpperInvariant|) (s: string) = s.ToUpperInvariant() | |
| let (|Trim|) (s: string) = s.Trim() | |
| let (|TrimChars|) (chars: char array) (s: string) = s.Trim(chars) |
| namespace pblasucci.FaultReport | |
| /// Minimal contract provided by any failure. | |
| [<Interface>] | |
| type IFault = | |
| /// An unstructured human-readable summary of the current failure. | |
| abstract Message : string | |
| /// An optional reference to the failure which triggered the current failure | |
| /// (n.b. most failure do NOT have a cause). |
| #r "nuget: FSharp.Compiler.Service" | |
| open FSharp.Compiler.Syntax | |
| open FSharp.Compiler.SyntaxTrivia | |
| open FSharp.Compiler.Xml | |
| type Node = | |
| { Data : Data | |
| Children : Node list } |
Allow templates to easily orchestrate the invocation of other templates by name/id, making multi-project and multi-item templates easier to keep up to date, and factoring out subsets of currently-giant templates into maintainable chunks.
| #r "nuget:FsCheck.Xunit" | |
| // Domain types from production code | |
| module Types = | |
| open System | |
| type EmailAddress = private EmailAddress of string | |
| module EmailAddress = | |
| let fromString str = | |
| if not <| String.IsNullOrWhiteSpace str |
