azure-functions-with-paket.fs

open System
open System.IO
open System.Diagnostics

Environment.CurrentDirectory <- __SOURCE_DIRECTORY__

let timePrint s = printfn "%O: %s" (System.DateTime.UtcNow.TimeOfDay) s

timePrint "Downloading Paket..."
let psi = ProcessStartInfo(@"..\.paket\paket.bootstrapper.exe",  UseShellExecute = false, CreateNoWindow = true, RedirectStandardOutput = true)
let x = Process.Start(psi)
x.WaitForExit()
timePrint (sprintf "%s" (x.StandardOutput.ReadToEnd()))

#r @"..\.paket\paket.exe"
open Paket

timePrint "Restoring dependencies..."
let dependencies = Dependencies.Locate "."
dependencies.Restore()

#I @"..\packages"
#r @"Newtonsoft.Json\lib\net45\Newtonsoft.Json.dll"

timePrint "Running application..."

open Newtonsoft.Json

type Customer = { Region : string; Name : string }

let customer = JsonConvert.DeserializeObject<Customer>(Environment.GetEnvironmentVariable("customer") |> File.ReadAllText)
timePrint (sprintf "%s: %A" customer.Region (DateTime.UtcNow.TimeOfDay.ToString()))
timePrint (sprintf "%A" customer)
timePrint (sprintf "%s: %A" customer.Region (DateTime.UtcNow.TimeOfDay.ToString()))