compile-src: fix manpage

Signed-off-by: Paul-Elliot <peada@free.fr>

Author: panglesd

src/odoc/bin/main.ml

@@ -426,19 +426,16 @@ module Compile_src = struct
       Arg.(required & pos 0 (some file) None & info ~doc ~docv:"FILE" [])
     in
     let source_parent_file =
-      let doc =
-        ".odoc file of the parent of the page containing the source code for \
-         this compilation unit."
-      in
+      let doc = "The source-tree file parent of the implementation." in
       Arg.(
         required
         & opt (some convert_fpath) None
-        & info [ "source-parent-file" ] ~doc ~docv:"PARENT.odoc")
+        & info [ "source-parent-file" ] ~doc ~docv:"srctree-PARENT.odoc")
     in
     let source_path =
       let doc =
-        "The basename of the source file. This is used to place the source \
-         file within the source_parent."
+        "The relative path of the source file. This is used to place the \
+         source file within the parent source tree."
       in
       Arg.(
         required
@@ -452,10 +449,8 @@ module Compile_src = struct
 
   let info ~docs =
     let doc =
-      "Compile a source tree into a page. Expect a text file containing the \
-       relative paths to every source files in the source tree. The paths \
-       should be the same as the one passed to $(i,odoc compile \
-       --source-name)."
+      "Compile a $(i,NAME.cmt) file to a $(i,src-NAME.odoc) containing the \
+       implementation information needed by odoc for the compilation unit."
     in
     Term.info "compile-src" ~docs ~doc
 end