Fsharp EmbeddedResourceManager

EmbeddedResourceManager.fs

open System;
open System.IO;
open System.Reflection;

module EmbeddedResourceManager =
    let assembly = Assembly.GetCallingAssembly()
        
    let private GetCompleteResourceName ( resourceName: string) =

        let matches = 
            assembly.GetManifestResourceNames()
            |> Array.toList 
            |> List.filter (fun x -> x.EndsWith(resourceName, StringComparison.CurrentCultureIgnoreCase))
        
        if List.isEmpty matches then
            ""
        else
            List.nth matches 0

    let ReturnResourceAsAString (completeResourceName : string) =
        use stream = assembly.GetManifestResourceStream(completeResourceName)
        let reader = new StreamReader(stream)
        reader.ReadToEnd()

    let getFileLines (resourceName: string) = 
        
        let resourceAsString = 
            GetCompleteResourceName resourceName
            |> ReturnResourceAsAString

        resourceAsString.Split([|'\r'; '\n';|])
        |> Seq.toList