dadhi

module EnvDemo

open System
open System.IO

[<Struct>]
type Nothing =
    private
    | Nothing

eulerfx

type Monoid<'a> = {
    unit : 'a
    op   : 'a -> 'a -> 'a
}

let endo<'a> =
  { unit = id 
    op   = fun (f:'a -> 'a) (g:'a -> 'a) -> f << g }

robashton

  public class ReducedController : Controller
    {
        private readonly IContainProducts productRepository;
        private readonly ISearchForProducts productsIndex;
        private readonly IContainCustomers customerRepository;
        private readonly IShipProducts productShipper;
        private readonly ICoordinateSales salesCatalog;

        public ReducedController(
            IContainProducts productRepository,