Add UTF-8 to new ConfigFile - references #2003

fsprojects · Nov 4, 2016 · d1d06b7 · d1d06b7
1 parent 1cb04a6
commit d1d06b7
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Paket.Core/ConfigFile.fs b/src/Paket.Core/ConfigFile.fs
@@ -17,6 +17,13 @@ let private rootElement = "configuration"
 let private getConfigNode (nodeName : string) =
     let rootNode = 
         let doc = XmlDocument ()
+
+        let xmldecl = doc.CreateXmlDeclaration("1.0",null,null)
+        xmldecl.Encoding <- "UTF-8"
+        xmldecl.Standalone <- "yes"
+
+        doc.InsertBefore(xmldecl, doc.DocumentElement) |> ignore
+
         if File.Exists Constants.PaketConfigFile then 
             try 
                 use f = File.OpenRead(Constants.PaketConfigFile)