Merge pull request #827 from amazingant/fix-assemblyinfo-vb

Re-added internal class generated for AssemblyInfo.vb
fsprojects · Jun 10, 2015 · 3ce3263 · 3ce3263
2 parents 32c23b5 + 6a03c98
commit 3ce3263
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/app/FakeLib/AssemblyInfoFile.fs b/src/app/FakeLib/AssemblyInfoFile.fs
@@ -181,7 +181,14 @@ let CreateVisualBasicAssemblyInfoWithConfig outputFileName attributes (config :
              |> Seq.toList
              |> List.map (fun (attr : Attribute) -> sprintf "<assembly: %sAttribute(%s)>" attr.Name attr.Value))
 
-    attributeLines 
+    let sourceLines =
+        if generateClass then
+            [ "Friend NotInheritable Class AssemblyVersionInformation"
+              sprintf "    Friend Const Version As String = %s" (getAssemblyVersionInfo attributes)
+              "End Class" ]
+        else []
+
+    attributeLines @ sourceLines
     |> writeToFile outputFileName
     traceEndTask "AssemblyInfo" outputFileName