option-for-result: Update README

inhabitedtype · Apr 26, 2020 · 31962ab · 31962ab
1 parent 01d106d
commit 31962ab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/README.md b/README.md
@@ -63,8 +63,8 @@ let handler request =
     ; "/hello/:who/", hello_handler
   ] in
   match DSL.dispatch table request.path with
-  | Result.Ok handler -> handler request
-  | Result.Error _    -> "Not found!"
+  | Some handler -> handler request
+  | None         -> "Not found!"
 ;;
 
 let _ =