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

WoofWare.PawPrint.Domain/EventDefn.fs

@@ -0,0 +1,21 @@
+namespace WoofWare.PawPrint
+
+open System.Reflection
+open System.Reflection.Metadata
+
+type EventDefn =
+    {
+        Name : string
+        Attrs : EventAttributes
+    }
+
+[<RequireQualifiedAccess>]
+module EventDefn =
+
+    let make (mr : MetadataReader) (event : EventDefinition) : EventDefn =
+        let name = mr.GetString event.Name
+
+        {
+            Name = name
+            Attrs = event.Attributes
+        }