John Harman Jmaharman

## trial.fsx
open System

type Trial<'Value, 'Error> =
    | Pass of 'Value
    | Fail of 'Error list

[<RequireQualifiedAccess>]
module Trial =
    let map2 merge trial1 trial2 =
        match (trial1, trial2) with

## zip-modified-files
git archive --format=zip HEAD `git diff HEAD^ HEAD --name-only` > modified-files.zip
	open System

	type Trial<'Value, 'Error> =
	\| Pass of 'Value
	\| Fail of 'Error list

	[<RequireQualifiedAccess>]
	module Trial =
	let map2 merge trial1 trial2 =
	match (trial1, trial2) with