From 90a2bfed23e0850d749f76897fa4c4daed2fa0b2 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 1 Jan 1970 00:00:00 +0000 Subject: [PATCH] Parsing fixes for camlp4 3.10.0 (Fedora 8). --- extract/codegen/kerneldb_to_parser.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.8.3.1