Remove warnings, specific exception handling, and update example

Author: MM45

resources/tests/EasyCrypt_GenDoc_Tutorial.ec

@@ -104,6 +104,8 @@ type w.
   (* This comment is excluded from the generated documentation file *)
   (*& This comment is excluded from the generated documentation file &*)
   (*^ This comment is excluded from the generated documentation file ^*)
+  However, anything outside these nested comments (but within
+  the documentation comment, of course) is included.
 &*)
 type x.
 
@@ -122,8 +124,9 @@ type y.
  formatted using (a non-standard dialect of) Markdown.
  The following is supported.
 
- As first non-blank character on a line:
- - \! indicates a heading;
+ As first non-blank character on a line (followed by a space):
+ - \! indicates a heading (one for largest heading, two for second-largest
+ heading, etc.);
  - \*, \+, or \- indicate an item of an unordered list;
  - \# indicates an item of an ordered list; and
  - \> indicates (a line of) a blockquote.
@@ -152,7 +155,7 @@ type z.
   - `Op` (or `Operator`),
   - `Ax` (or `Axiom`),
   - `Lem` (or `Lemma`),
-  -`ModTy` (or `ModuleType`),
+  - `ModTy` (or `ModuleType`),
   - `Mod` (or `Module`), and
   - `Th` (or `Theory`).
 

src/ecDoc.ml

@@ -9,11 +9,13 @@ let styles_file : string =
   Filename.concat Sites.doc "styles.css"
 
 let stdlib_doc_dp (th : string) : string =
-  ""
+  match th with
+  | _ -> ""
 
 (* -------------------------------------------------------------------- *)
 let from_stdlib (th : string) : bool =
-  false
+  match th with
+  | _ -> false
 
 (* -------------------------------------------------------------------- *)
 let c_filename ?(ext : string option) (nms : string list) =
@@ -100,7 +102,8 @@ let md_href_format (rth : string) (env : EcEnv.env) (hr : Markdown.href) : Html_
          let rec try_lookup = function
            | [] -> failwith (Printf.sprintf "No item/entity found with name `%s'." tname)
            | ik :: iks ->
-              try itemkind_str_pl ik, itemkind_lookup_path ik tqs env with _ -> try_lookup iks
+              try itemkind_str_pl ik, itemkind_lookup_path ik tqs env
+              with EcEnv.LookupFailure _ -> try_lookup iks
          in
          let iks = [`Type; `Operator; `Axiom; `Lemma; `ModuleType; `Module; `Theory] in
          try_lookup iks