X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=extract%2Fcodegen%2Fkerneldb_to_parser.ml;h=1d56126b84fa964a5b585c0daa4fcc1f71aba373;hb=45b7766e66fb59ece5f07305553dc54a26b32d9d;hp=6414ce4acbb04ea92a3339d634764d963f8b2779;hpb=6029405541d12dedfce7998deefa0e6b0d04f3d5;p=virt-mem.git

diff --git a/extract/codegen/kerneldb_to_parser.ml b/extract/codegen/kerneldb_to_parser.ml
index 6414ce4..1d56126 100644
--- a/extract/codegen/kerneldb_to_parser.ml
+++ b/extract/codegen/kerneldb_to_parser.ml
@@ -80,7 +80,7 @@ Example (from toplevel of virt-mem source tree):
   let infos = Sys.readdir kernelsdir in
   let infos = Array.to_list infos in
   let infos = List.filter (fun name -> String.ends_with name ".info") infos in
-  let infos = List.map ((//) kernelsdir) infos in
+  let infos = List.map ( (//) kernelsdir) infos in
 
   (* Regular expressions.  We really really should use ocaml-mikmatch ... *)
   let re_oldformat = Pcre.regexp "^RPM: \\d+: \\(build \\d+\\) ([-\\w]+) ([\\w.]+) ([\\w.]+) \\(.*?\\) (\\w+)" in
@@ -628,7 +628,7 @@ Example (from toplevel of virt-mem source tree):
 	  ) <:str_item< let map = StringMap.empty >> kernels in
 
 	  <:str_item<
-            module StringMap = Map.Make (String)
+            module StringMap = Map.Make (String) ;;
 	    $stmts$
 	  >> in