Export Http-specific exception..

--HG-- extra : convert_revision : svn%3Aaec24677-d710-0410-a355-ac75e2bdf181/trunk%407328
savonet · May 26, 2010 · 37e5e6f · 37e5e6f
1 parent 1912785
commit 37e5e6f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/lastfm.ml b/src/lastfm.ml
@@ -22,14 +22,14 @@
 
 (* lastfm protocol API for ocaml *)
 
-exception Http of string
-
 (* Records for client *)
 type client = { client : string ; version : string }
 type login = { user : string ; password : string }
 
 module type Http_t =
 sig
+  exception Http of string
+
   val default_timeout : float ref
   val request : ?post:string -> ?timeout:float -> 
                 ?headers:((string*string) list) ->
@@ -39,6 +39,8 @@ end
 
 module Http_ocamlnet =
 struct
+  exception Http of string
+
   let default_timeout = ref 5.
 
   let request ?(post="") ?timeout ?(headers=[]) ?(port=80) ~host req =

diff --git a/src/lastfm.mli b/src/lastfm.mli
@@ -30,6 +30,8 @@ type login = { user : string ; password : string }
   * that the modules require. *)
 module type Http_t =
 sig
+  exception Http of string
+
   val default_timeout : float ref
   val request : ?post:string -> ?timeout:float ->
                 ?headers:((string*string) list) ->