gistfile1.txt

module Server


type StartParams = 
    { TimeOut: int;
      Url: string; }

let startServer serverName startParams =
    printfn "%s %d" serverName startParams.TimeOut

let ActionHandlerA serverStartActions =
    serverStartActions 
      |> Seq.iter (fun start -> start {TimeOut = 10; Url = "http://" })


// "Main"
let exectutionQueue1 =
    [ startServer "prod1";
      startServer "prod2" ]

let outerContext = "hurray closure" // das funzt in F#, da Immutable

let exectutionQueue2 =
    exectutionQueue1 @
        [fun p ->
            startServer "prod3" p
            printfn "%s" outerContext]

let outerContext' = "don't want to see this text" // different variable

ActionHandlerA(exectutionQueue2)

System.Console.ReadKey()