mirror of
https://github.com/Smaug123/WoofWare.PawPrint
synced 2025-10-08 15:38:41 +00:00
Split WoofWare.PawPrint.Domain into a new subtree (#41)
This commit is contained in:
30
WoofWare.PawPrint.Domain/AssemblyReference.fs
Normal file
30
WoofWare.PawPrint.Domain/AssemblyReference.fs
Normal 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
|
||||
}
|
Reference in New Issue
Block a user