Assembler: infer file names for saved assemblies

Close #64.
codingteam · Apr 3, 2016 · e838e43 · e838e43
1 parent 035731c
commit e838e43
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Naggum.Assembler/Assembler.fs b/Naggum.Assembler/Assembler.fs
@@ -52,7 +52,7 @@ let assemble (mode : AssemblyBuilderAccess) (assembly : Assembly) =
     let name = AssemblyName assembly.Name
     let domain = AppDomain.CurrentDomain
     let builder = domain.DefineDynamicAssembly (name, mode)
-    let fileName = assembly.Name + ".dll" // TODO: Proper file naming
+    let fileName = assembly.Name + ".exe" // TODO: Proper file naming
     let moduleBuilder = builder.DefineDynamicModule (assembly.Name, fileName)
     assembly.Units |> List.iter (assembleUnit builder moduleBuilder)
     moduleBuilder.CreateGlobalFunctions ()

diff --git a/Naggum.Assembler/Program.fs b/Naggum.Assembler/Program.fs
@@ -19,7 +19,7 @@ let private printError (error : Exception) =
     printfn "Error: %s" (error.ToString ())
 
 let private save (assembly : AssemblyBuilder) =
-    let name = assembly.FullName
+    let name = assembly.GetName().Name + ".exe" // TODO: See #45. ~ F
     assembly.Save name
     printfn "Assembly %s saved" name