Split WoofWare.PawPrint.Domain into a new subtree (#41)

This commit is contained in:
Patrick Stevens
2025-06-04 20:13:16 +01:00
committed by GitHub
parent 15bae6f3aa
commit 19eb7c245d
26 changed files with 62 additions and 30 deletions

View File

@@ -0,0 +1,30 @@
namespace WoofWare.PawPrint
open System
open System.Reflection
open System.Reflection.Metadata
type AssemblyReference =
{
/// A handle relative to the specified assembly.
Handle : AssemblyReferenceHandle * AssemblyName
Culture : StringToken
Flags : AssemblyFlags
Name : AssemblyName
Version : Version
}
[<RequireQualifiedAccess>]
module AssemblyReference =
let make
(handle : AssemblyReferenceHandle * AssemblyName)
(ref : System.Reflection.Metadata.AssemblyReference)
: AssemblyReference
=
{
Handle = handle
Culture = StringToken.String ref.Culture
Flags = ref.Flags
Name = ref.GetAssemblyName ()
Version = ref.Version
}