insert new generated ItemGroups for Content and Compile items before …

…any other ItemGroup - references fsprojects#213
theimowski · Oct 6, 2014 · c0672c7 · c0672c7
1 parent d9454c5
commit c0672c7
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/Paket/ProjectFile.fs b/src/Paket/ProjectFile.fs
@@ -189,9 +189,13 @@ type ProjectFile =
                 | None  ->
                     let firstNode = fileItemsInSameDir |> Seq.head
                     firstNode.ParentNode.InsertBefore(paketNode, firstNode) |> ignore
-
+
+        let firstItemGroup = this.Document.SelectNodes("//ns:ItemGroup", this.Namespaces) |> Seq.cast<XmlNode> |> Seq.firstOrDefault
         for newItemGroup in newItemGroups.Values do
-            if newItemGroup.HasChildNodes then this.ProjectNode.AppendChild(newItemGroup) |> ignore
+            if newItemGroup.HasChildNodes then 
+                match firstItemGroup with
+                | Some firstItemGroup -> firstItemGroup.ParentNode.InsertBefore(newItemGroup, firstItemGroup) |> ignore
+                | None -> this.ProjectNode.AppendChild(newItemGroup) |> ignore
 
         this.DeleteIfEmpty("//ns:ItemGroup")