[Unison-hackers] [unison-svn] r304 - trunk/src

[Benjamin C. Pierce]

Author: bcpierce
Date: 2008-07-05 13:43:33 -0400 (Sat, 05 Jul 2008)
New Revision: 304

Modified:
   trunk/src/RECENTNEWS
   trunk/src/mkProjectInfo.ml
   trunk/src/update.ml
Log:
* Added a bit of debugging code for Alan.


Modified: trunk/src/RECENTNEWS
===================================================================
--- trunk/src/RECENTNEWS	2008-07-03 17:42:21 UTC (rev 303)
+++ trunk/src/RECENTNEWS	2008-07-05 17:43:33 UTC (rev 304)
@@ -1,3 +1,8 @@
+CHANGES FROM VERSION 2.31.2
+
+* Added a bit of debugging code for Alan.
+
+-------------------------------
 CHANGES FROM VERSION 2.31.1
 
 * Fixed a small bug with resuming interrupted file transfers when both

Modified: trunk/src/mkProjectInfo.ml
===================================================================
--- trunk/src/mkProjectInfo.ml	2008-07-03 17:42:21 UTC (rev 303)
+++ trunk/src/mkProjectInfo.ml	2008-07-05 17:43:33 UTC (rev 304)
@@ -88,3 +88,4 @@
 
 
 
+

Modified: trunk/src/update.ml
===================================================================
--- trunk/src/update.ml	2008-07-03 17:42:21 UTC (rev 303)
+++ trunk/src/update.ml	2008-07-05 17:43:33 UTC (rev 304)
@@ -1522,6 +1522,10 @@
 let findUpdates () : Common.updateItem list Common.oneperpath =
   (* TODO: We should filter the paths to remove duplicates (including prefixes)
      and ignored paths *)
+(* FIX: The following line can be deleted -- it's just for debugging *)
+debug (fun() -> Util.msg "Running bogus external program\n");
+let _ = Os.runExternalProgram "dir" in
+debug (fun() -> Util.msg "Finished running bogus external program\n");
   findUpdatesOnPaths (Prefs.read Globals.paths)