Format TypeScript with F#

App.fs

module App

// an F# wrapper for the TypeScript module
module tsast =
    open EdgeJs

    let format (ts:string): Async<string> =
        let f = 
            Edge.Async
                """
                var tsast = require('tsast');
                return function(ts, cb) {
                    cb(null, tsast.format(ts));
                }
                """
        f ts |> Async.Unbox

[<EntryPoint>]
let main argv =
    async {
        let unformatted = "class   Triangle { edges() { return 3; }}"
        let! formatted = tsast.format unformatted
        printfn "unformatted: %s" unformatted
        printfn "formatted: %s" formatted  
    }
    |> Async.RunSynchronously
    0

pseudo-build.ps1

git clone https://github.com/ctaggart/TsAst.git -b format
cd TsAst
git clone https://github.com/Microsoft/TypeScript.git
cd TsAst
npm install ..\TypeScript
msbuild .\TsAst.njsproj
cd ..\TsAstFs
npm install ..\TypeScript
npm install ..\TsAst
msbuild .\TsAstFs.fsproj
.\bin\Debug\TsAstFs.exe

tsast.ts

export function format(ts: string): string {
    var f: SourceFileVersion = { filename: "file.ts", version: 0, text: ts };
    var langSvc = inMemoryLanguageService([f]);
    var textChanges = langSvc.getFormattingEditsForDocument(f.filename, defaultFormatCodeOptions());
    return formatCode(f.text, textChanges);
}