From 6a03c982e0381de473f90d9afabe7caacaf9a4bc Mon Sep 17 00:00:00 2001
From: Anthony Perez <anthony@amazingant.com>
Date: Tue, 9 Jun 2015 15:39:22 -0400
Subject: [PATCH] Re-added internal class generated for AssemblyInfo.vb

Was removed in 63185e7cded200f73e75dedcf5e0afe21f20b953 for #673 due to
errors building. The existing code did not work because of the attempt
to put it in the System namespace, and the lack of a class name.
---
 src/app/FakeLib/AssemblyInfoFile.fs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/app/FakeLib/AssemblyInfoFile.fs b/src/app/FakeLib/AssemblyInfoFile.fs
index f7b38dbd10c..7e423844d02 100644
--- 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