[MLton-commit] r7358

[Wesley Terpstra]

Keep only guid chars.


----------------------------------------------------------------------

U   mlton/trunk/package/mingw/files2wix.sml

----------------------------------------------------------------------

Modified: mlton/trunk/package/mingw/files2wix.sml
===================================================================
--- mlton/trunk/package/mingw/files2wix.sml	2009-11-03 12:55:49 UTC (rev 7357)
+++ mlton/trunk/package/mingw/files2wix.sml	2009-11-03 12:58:22 UTC (rev 7358)
@@ -65,7 +65,7 @@
           | SOME s => s
       val _ = MLton.Process.reap guid
    in
-      out
+      String.substring (out, 0, 36)
    end
 
 fun tail path = String.substring (path, 0, String.size path - 1)