getFromResource.fs

let private getFromResource resourceName =
    let assem = System.Reflection.Assembly.GetExecutingAssembly()
    try
        use stream = assem.GetManifestResourceStream(resourceName)
        use reader = new System.IO.StreamReader(stream)
        reader.ReadToEnd();
    with
    | ex ->
        let errorMessageBase = sprintf "%s not found; available resources include:" resourceName
        let errorMessage =
            assem.GetManifestResourceNames()
            |> Seq.fold (fun acc el -> sprintf "%s%s%s" acc nl (sprintf "- %s" el)) errorMessageBase
        failwith errorMessage