Use AssemblyReader from FSharp.Data

fsprojects · Dec 6, 2015 · 7fa2f5a · 7fa2f5a
1 parent 798aeea
commit 7fa2f5a
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/src/Paket.Core/PackageMetaData.fs b/src/Paket.Core/PackageMetaData.fs
@@ -108,9 +108,26 @@ let loadAssemblyId buildConfig buildPlatform (projectFile : ProjectFile) =
              projectFile.GetAssemblyName()) |> normalizePath
 
     traceVerbose <| sprintf "Loading assembly metadata for %s" fileName
+    let xs = 
+        ProviderImplementation.AssemblyReader.ILModuleReaderAfterReadingAllBytes(
+            fileName, 
+            ProviderImplementation.AssemblyReader.mkILGlobals ProviderImplementation.AssemblyReader.ecmaMscorlibScopeRef, 
+            true)
+
+    let extractAttr (inp: ProviderImplementation.AssemblyReader.ILCustomAttr) = 
+         let args = ProviderImplementation.AssemblyReader.decodeILCustomAttribData xs.ILGlobals inp
+         [| for arg in args -> arg |]
+
+
+    let ys = 
+      [| for a in xs.ILModuleDef.CustomAttrs.Elements do 
+              yield extractAttr a |]
+
+
     let bytes = File.ReadAllBytes fileName
     let assembly = Assembly.Load bytes
 
+    failwithf "%A %s" xs.ILModuleDef.CustomAttrs.Elements (assembly.GetName().Name)
     assembly,assembly.GetName().Name,fileName
 
 let loadAssemblyAttributes fileName (assembly:Assembly) =