F# module for WindowsPath access (Useful in FAKE scripts)

WindowsPath.fs

module WindowsPath =
    open System
    open System.IO

    let path = lazy (Environment.GetEnvironmentVariable("PATH").Split(';') |> List.ofArray)
    let pathExt = lazy (Environment.GetEnvironmentVariable("PATHEXT").Split(';') |> List.ofArray)

    let find names =
        path.Value
        |> Seq.collect (fun dir -> names |> List.map (fun name -> Path.Combine(dir, name)))
        |> Seq.tryFind(File.Exists)

    let findProgram name =
        pathExt.Value
        |> List.map ((+) name)
        |> find