]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/DEVEL/ocaml-http/http_types.ml
ported to ocaml 3.08
[helm.git] / helm / DEVEL / ocaml-http / http_types.ml
index bbdd46a133bbcb0ba696eabd4d468b4b5a88d0d7..2175576b77c0507c05406621506c82080cd7a855 100644 (file)
@@ -2,7 +2,7 @@
 (*
   OCaml HTTP - do it yourself (fully OCaml) HTTP daemon
 
-  Copyright (C) <2002> Stefano Zacchiroli <zack@cs.unibo.it>
+  Copyright (C) <2002-2004> Stefano Zacchiroli <zack@cs.unibo.it>
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -140,6 +140,8 @@ type status =
   | server_error_status
   ]
 
+type status_code = [ `Code of int | `Status of status ]
+
   (** File sources *)
 type file_source =
   | FileSrc of string           (** filename *)