Rename some modules

lcdunstan · Jun 10, 2015 · 180c3f0 · 180c3f0
1 parent 30c64e0
commit 180c3f0
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/src/reqtrace.ml b/src/reqtrace.ml
@@ -145,7 +145,7 @@ let extract_cmd =
     (Arg.pos 0)
   in
   Term.(ret (pure (ReqtraceUtil.map_ret (fun _ -> ())) $
-             (pure ReqtraceExtract.run
+             (pure ReqtraceExtractCmd.run
               $ strip $ rfc
               $ output $ path')),
         info "extract" ~doc ~sdocs:global_option_section ~man)
@@ -160,7 +160,7 @@ let html_cmd =
   let path_doc = "the file or directory to render to HTML" in
   let path' = path ~doc:path_doc (Arg.pos 0) in
   let css = uri_ref ~doc:css_doc ["css"] in
-  Term.(ret (pure ReqtraceCliHtml.run
+  Term.(ret (pure ReqtraceHtmlCmd.run
                $ output $ path'
                $ scheme $ css $ share_dir),
         info "html" ~doc ~sdocs:global_option_section ~man)

diff --git a/src/reqtraceDoc.ml → src/reqtraceDocXml.ml b/src/reqtraceDoc.ml → src/reqtraceDocXml.ml
diff --git a/src/reqtraceExtract.ml → src/reqtraceExtractCmd.ml b/src/reqtraceExtract.ml → src/reqtraceExtractCmd.ml
@@ -119,7 +119,7 @@ let extract ?strip ~rfcs cmt out_dir rel_xml =
     | `Ok unit ->
       let oc = open_out xml in
       let xout = Xmlm.make_output (`Channel oc) in
-      ReqtraceXml.output_impl_unit ?strip xout unit;
+      ReqtraceRefXml.output_impl_unit ?strip xout unit;
       close_out oc;
       `Ok unit
 

diff --git a/src/reqtraceCliHtml.ml → src/reqtraceHtmlCmd.ml b/src/reqtraceCliHtml.ml → src/reqtraceHtmlCmd.ml
@@ -16,7 +16,7 @@
  *
  *)
 
-module Error = ReqtraceExtract.Error
+module Error = ReqtraceExtractCmd.Error
 module Dir = ReqtraceUtil.Dir
 
 let (/) = Filename.concat
@@ -228,7 +228,7 @@ let render_file in_file out_file scheme css share =
   let css_dir = Filename.dirname out_file in
   let root = Filename.dirname in_file in
   let path = Filename.basename in_file in
-  let rfc = ReqtraceDoc.read root path in
+  let rfc = ReqtraceDocXml.read root path in
   let render_f = render_rfc rfc out_file scheme in
   render_with_css share css_dir render_f css
 

diff --git a/src/reqtraceXml.ml → src/reqtraceRefXml.ml b/src/reqtraceXml.ml → src/reqtraceRefXml.ml