From fb8636fbae31aea69986311b755930b0c32e349c Mon Sep 17 00:00:00 2001
From: Enrico Tassi <Enrico.Tassi@inria.fr>
Date: Mon, 12 May 2014 10:20:06 +0200
Subject: Future: better error message

---
 lib/future.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/future.ml')

diff --git a/lib/future.ml b/lib/future.ml
index b82948276..690255edd 100644
--- a/lib/future.ml
+++ b/lib/future.ml
@@ -27,7 +27,7 @@ let _ = Errors.register_handler (function
   | _ -> raise Errors.Unhandled)
 
 type fix_exn = exn -> exn
-let id x = prerr_endline "no fix_exn"; x
+let id x = prerr_endline "Future: no fix_exn.\nYou have probably created a Future.computation from a value without passing the ~fix_exn argument.  You probably want to chain with an already existing future instead."; x
 
 module UUID = struct
   type t = int
-- 
cgit v1.2.3