diff -ur odoc-1.5.0.old/src/loader/cmt.ml odoc-1.5.0.new/src/loader/cmt.ml
--- odoc-1.5.0.old/src/loader/cmt.ml	2020-02-07 19:11:54.000000000 +0000
+++ odoc-1.5.0.new/src/loader/cmt.ml	2020-04-22 14:13:53.458010790 +0100
@@ -78,10 +78,6 @@
         read_pattern env parent doc pat
     | Tpat_lazy pat ->
         read_pattern env parent doc pat
-#if OCAML_MAJOR = 4 && OCAML_MINOR >= 08
-    | Tpat_exception pat ->
-        read_pattern env parent doc pat
-#endif
 
 let read_value_binding env parent vb =
   let container = (parent : Identifier.Signature.t :> Identifier.LabelParent.t) in
diff -ur odoc-1.5.0.old/src/loader/doc_attr.ml odoc-1.5.0.new/src/loader/doc_attr.ml
--- odoc-1.5.0.old/src/loader/doc_attr.ml	2020-02-07 19:11:54.000000000 +0000
+++ odoc-1.5.0.new/src/loader/doc_attr.ml	2020-04-22 14:13:03.597352779 +0100
@@ -34,7 +34,7 @@
 #if OCAML_MAJOR = 4 && OCAML_MINOR = 02
         Pexp_constant (Const_string (text, _))
 #else
-        Pexp_constant (Pconst_string (text, _))
+        Pexp_constant (Pconst_string (text, _, _))
 #endif
    ; pexp_loc = loc; _}, _); _}] ->
     Some (text, loc)