mirror of
https://github.com/Smaug123/dmarc-fsharp
synced 2025-10-05 15:38:42 +00:00
18 lines
529 B
Forth
18 lines
529 B
Forth
namespace Dmarc.Test
|
|
|
|
open System.IO
|
|
open System.Reflection
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module EmbeddedResource =
|
|
let read (fileName : string) : Stream =
|
|
let assy = Assembly.GetExecutingAssembly ()
|
|
let fileName = $"%s{assy.GetName().Name}.%s{fileName}"
|
|
let s = assy.GetManifestResourceStream fileName
|
|
|
|
if isNull s then
|
|
let names = assy.GetManifestResourceNames () |> String.concat "\n"
|
|
failwith $"Could not find resource %s{fileName}. Available:\n%s{names}"
|
|
|
|
s
|