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

[bcpierce@seas.upenn.edu]

Author: bcpierce
Date: 2010-02-24 09:19:23 -0500 (Wed, 24 Feb 2010)
New Revision: 417

Modified:
   trunk/src/RECENTNEWS
   trunk/src/mkProjectInfo.ml
Log:
* Fix compilation problem in mkProjectInfo




Modified: trunk/src/RECENTNEWS
===================================================================
--- trunk/src/RECENTNEWS	2010-02-24 13:15:45 UTC (rev 416)
+++ trunk/src/RECENTNEWS	2010-02-24 14:19:23 UTC (rev 417)
@@ -1,5 +1,12 @@
 CHANGES FROM VERSION 2.40.1
 
+* Fix compilation problem in mkProjectInfo
+
+
+
+-------------------------------
+CHANGES FROM VERSION 2.40.1
+
 * Adding updated frameworks
 
 

Modified: trunk/src/mkProjectInfo.ml
===================================================================
--- trunk/src/mkProjectInfo.ml	2010-02-24 13:15:45 UTC (rev 416)
+++ trunk/src/mkProjectInfo.ml	2010-02-24 14:19:23 UTC (rev 417)
@@ -44,17 +44,17 @@
 
 let revisionString = "$Rev: 410$";;
 
-(* extract a substring using a regular expression *)
-let extract_str re str =
-  let _ = Str.search_forward (Str.regexp re) str 0 in
-  Str.matched_group 1 str;;
-let extract_int re str = int_of_string (extract_str re str);;
-
 (* BCP (1/10): This bit was added to help with getting Unison via bazaar, but it
    was never used much and I'm not confident it's working.  I'll comment it out
    for now, but if it hasn't been needed or fixed in a few months, the next
    person that edits this file should delete it...
 
+  (* extract a substring using a regular expression *)
+  let extract_str re str =
+    let _ = Str.search_forward (Str.regexp re) str 0 in
+    Str.matched_group 1 str;;
+  let extract_int re str = int_of_string (extract_str re str);;
+
   (* run the bzr tool to get version information for bzr branches *)
   exception BzrException of Unix.process_status;;
   let bzr args =
@@ -109,3 +109,4 @@
 
 
 
+