From 676f983a30acc799385b7b5f6209f0572be403b2 Mon Sep 17 00:00:00 2001
From: Florian Kroenert <Florian.Kroenert@kumavision.de>
Date: Thu, 3 Mar 2016 08:56:56 +0100
Subject: [PATCH] Fixed bug in WiXDir function, that would set plain directory
 name as id

---
 src/app/FakeLib/WiXHelper.fs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/app/FakeLib/WiXHelper.fs b/src/app/FakeLib/WiXHelper.fs
index 28a378b0aff..5d7f00e4dc8 100644
--- a/src/app/FakeLib/WiXHelper.fs
+++ b/src/app/FakeLib/WiXHelper.fs
@@ -577,11 +577,11 @@ let rec wixDir fileFilter asSubDir (directoryInfo : DirectoryInfo) =
         if files = "" then ""
         else 
             split '\n' files
-            |> Seq.map(fun f -> sprintf "<Component Id=\"%s\" Guid=\"%s\">\r\n%s\r\n</Component>\r\n" (compName directoryInfo.Name) "*" f)
+            |> Seq.map(fun f -> sprintf "<Component Id=\"%s\" Guid=\"%s\">\r\n%s\r\n</Component>\r\n" (compName (directoryInfo.Name.GetHashCode().ToString("x8"))) "*" f)
             |> toLines
-    
+
     if asSubDir then 
-        sprintf "<Directory Id=\"%s\" Name=\"%s\">\r\n%s%s\r\n</Directory>\r\n" (dirName directoryInfo.Name) 
+        sprintf "<Directory Id=\"%s\" Name=\"%s\">\r\n%s%s\r\n</Directory>\r\n" (dirName (directoryInfo.Name.GetHashCode().ToString("x8"))) 
             directoryInfo.Name dirs compo
     else sprintf "%s%s" dirs compo