(file) Return to browser.cgi CVS log (file) (dir) Up to [app-findlib-browser] / browser.cgi

Diff for /browser.cgi between version 9 and 10

version 9, Mon Aug 2 00:59:07 2010 UTC version 10, Mon Aug 2 01:01:07 2010 UTC
Line 18 
Line 18 
   
 (* ---------------------------------------------------------------------- *)  (* ---------------------------------------------------------------------- *)
   
   let buffered_transactional_optype =
     `Transactional (fun config ch -> new Netchannels.buffered_trans_channel ch)
   
 module type CGI = sig val cgi : Netcgi.cgi end  module type CGI = sig val cgi : Netcgi.cgi end
   
 module Body(Cgi : CGI) = struct  module Body(Cgi : CGI) = struct
Line 467 
Line 470 
   
 let () =  let () =
   Netcgi_cgi.run    Netcgi_cgi.run
     ~output_type:Netcgi.buffered_transactional_optype      ~output_type:buffered_transactional_optype
     (fun cgi ->      (fun cgi ->
        let module Cgi = struct let cgi = cgi end in         let module Cgi = struct let cgi = cgi end in
        let module B = Body(Cgi) in         let module B = Body(Cgi) in


Legend:
Removed from v.9  
changed lines
  Added in v.10

SVN admin
Powered by
ViewCVS 1.0-dev