Commits

Dmitry Grebeniuk  committed 31959a9

pre-some-shit

  • Participants
  • Parent commits e7f5a41

Comments (0)

Files changed (1)

File src/amall_http_service.ml

 open Amall_types;
 open Printf;
 
-open Cadastr
-;
+open Cadastr; open Cd_All; open Cdt; open Strings.Utf8;
 
 open Amall_http_server
 ;
       [ Level of disp_level
       | Service of http_service_func
       ]
-    and seg_map = Timp.map_rw seg disp_handler
+    and seg_map = Timp.map_rws seg disp_handler
     ;
 
     type listener =
             { seg_map = new c_seg_map
             ; fallback = fb
             } in
-          ( disp.seg_map#add seg (Level lev)
+          ( disp.seg_map#replace seg (Level lev)
           ; let () = dbg "S.go_or_create_smallstep: .. created." in
             lev
           )
       [ `Service (_, p) ->
           match disp_level.seg_map#get_opt p with
           [ None ->
-              disp_level.seg_map#add p (Service what)
+              disp_level.seg_map#replace p (Service what)
           | Some _ -> raise Already_handled
           ]
       | `Fallback _ -> disp_level.fallback := what