daily pastebin goal
35%
SHARE
TWEET

Untitled

a guest Feb 16th, 2019 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. From 404de016fa033654285e0c21f0e21b6257ef8e10 Mon Sep 17 00:00:00 2001
  2. From: Gabriel Kerneis <gabriel@kerneis.info>
  3. Date: Tue, 30 Jul 2013 21:47:29 +0100
  4. Subject: [PATCH] Fix typos in ocamlbuild error messages
  5.  
  6. ---
  7.  ocamlbuild/rule.ml |    4 ++--
  8.  1 file changed, 2 insertions(+), 2 deletions(-)
  9.  
  10. diff --git a/ocamlbuild/rule.ml b/ocamlbuild/rule.ml
  11. index d28833d..7cef2fd 100644
  12. --- a/ocamlbuild/rule.ml
  13. +++ b/ocamlbuild/rule.ml
  14. @@ -262,11 +262,11 @@ let rule name ?(tags=[]) ?(prods=[]) ?(deps=[]) ?prod ?dep ?stamp ?(insert = `bo
  15.      List.fold_right begin fun x acc ->
  16.        let r = import x in
  17.        if List.mem r acc then
  18. -        failwith (sprintf "in rule %s, multiple occurences of the resource %s" name x)
  19. +        failwith (sprintf "in rule %s, multiple occurrences of the resource %s" name x)
  20.        else r :: acc
  21.      end xs init
  22.    in
  23. -  if prods = [] && prod = None && stamp = None then raise (Exit_rule_error "Can't make a rule that produce nothing");
  24. +  if prods = [] && prod = None && stamp = None then raise (Exit_rule_error "Can't make a rule that produces nothing");
  25.    let stamp, prods =
  26.      match stamp with
  27.      | None -> None, prods
  28. --
  29. 1.7.10.4
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top