Commits

Anonymous committed ca9c14f

.

Comments (0)

Files changed (1)

amall_http_service.ml

     (* segpath contains path from uri, split by '/' and normalized.
        absolute segpath for url "http://host:port/a/b/c?d#e" is
        [""; "http://host:port"; "a"; "b"; "c"].  Note that query and
-       fragment compotents are available in the Uri record.
+       fragment components are available in the Uri record.
        First item is the empty string always, it is introduced to
        make possible handling of requests to any host by
-       registering service on path [""].
+       registering a service on path [""].
      *)
 
     type segpath = list seg;
       : Amall_http_server.listen_addr -> (listener * mount_point)
     ;
 
-    (* creates mount point in the specified segpath below the
-       original mount point. *)
+    (* creates a destination mount point in the specified segpath
+       below the source mount point. *)
     value mount_rel : mount_point -> segpath -> mount_point
     ;
 
     value mount : endpoint -> http_service_func -> unit
     ;
 
+(*
+  todo:
     value umount : endpoint -> unit
     ;
+*)
 
   end
  =
     ;
 
 
+(*
     value remove_handler ~endpoint =
       (ignore endpoint; raise Exit)
     ;
-
+*)
 
     (**********)
 
       install_handler ~endpoint ~what:f
     ;
 
+(*
     value umount endpoint =
       remove_handler ~endpoint
     ;
+*)
 
     (**********)