From 5ce3527a194c90e1c4c9073afbb3863412304048 Mon Sep 17 00:00:00 2001
From: acerioni <??>
Date: Fri, 12 Mar 2004 09:40:58 +0000
Subject: [PATCH] Type of exception changed: from exn to string.

---
 helm/ocaml/getter/clientHTTP.ml  | 6 +++---
 helm/ocaml/getter/clientHTTP.mli | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/helm/ocaml/getter/clientHTTP.ml b/helm/ocaml/getter/clientHTTP.ml
index fc319e583..a7b36982c 100644
--- a/helm/ocaml/getter/clientHTTP.ml
+++ b/helm/ocaml/getter/clientHTTP.ml
@@ -23,20 +23,20 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception HttpClientError of exn * string;;
+exception HttpClientError of string * string;;	(* reason, uri *)
 
 let send cmd =
  try
   ignore (Http_client.http_get cmd)
  with
-  e -> raise (HttpClientError (e,cmd))
+  e -> raise (HttpClientError (Printexc.to_string e, cmd))
 ;;
 
 let get uri =
  try
   Http_client.http_get uri
  with
-  e -> raise (HttpClientError (e,uri))
+  e -> raise (HttpClientError (Printexc.to_string e, uri))
 ;;
 
 let get_and_save uri dest_filename =
diff --git a/helm/ocaml/getter/clientHTTP.mli b/helm/ocaml/getter/clientHTTP.mli
index 59587edc2..f45d63dda 100644
--- a/helm/ocaml/getter/clientHTTP.mli
+++ b/helm/ocaml/getter/clientHTTP.mli
@@ -23,7 +23,7 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception HttpClientError of exn * string;;
+exception HttpClientError of string * string;;	(* reason, uri *)
 val send : string -> unit
 val get : string -> string
 val get_and_save : string -> string -> unit
-- 
2.39.2