[Pkg-ocaml-maint-commits] r1907 - in trunk/projects/approx/trunk: . debian

[Eric Cooper]

Author: ecc-guest
Date: 2005-11-02 18:26:47 +0000 (Wed, 02 Nov 2005)
New Revision: 1907

Modified:
   trunk/projects/approx/trunk/approx.ml
   trunk/projects/approx/trunk/debian/changelog
   trunk/projects/approx/trunk/debian/control
   trunk/projects/approx/trunk/server.ml
   trunk/projects/approx/trunk/url.ml
Log:
updated for ocaml 3.09.0


Modified: trunk/projects/approx/trunk/approx.ml
===================================================================
--- trunk/projects/approx/trunk/approx.ml	2005-11-02 16:35:11 UTC (rev 1906)
+++ trunk/projects/approx/trunk/approx.ml	2005-11-02 18:26:47 UTC (rev 1907)
@@ -483,7 +483,7 @@
 
 let proxy_service =
   let version = Version.name ^/ Version.number in
-  object (self)
+  object (_self)
     method name = "proxy_service"
     method def_term = `Proxy_service
     method print fmt = Format.fprintf fmt "%s" "proxy_service"

Modified: trunk/projects/approx/trunk/debian/changelog
===================================================================
--- trunk/projects/approx/trunk/debian/changelog	2005-11-02 16:35:11 UTC (rev 1906)
+++ trunk/projects/approx/trunk/debian/changelog	2005-11-02 18:26:47 UTC (rev 1907)
@@ -1,6 +1,8 @@
 approx (2.01) unstable; urgency=low
 
   * Updated debian/control for ocaml version 3.09.0
+  * Added dependency on adduser (for postinst script)
+  * Removed unused variables (or renamed with _) to eliminate warnings
 
  -- Eric Cooper <ecc at cmu.edu>  Tue,  1 Nov 2005 17:43:55 -0500
 

Modified: trunk/projects/approx/trunk/debian/control
===================================================================
--- trunk/projects/approx/trunk/debian/control	2005-11-02 16:35:11 UTC (rev 1906)
+++ trunk/projects/approx/trunk/debian/control	2005-11-02 18:26:47 UTC (rev 1907)
@@ -8,7 +8,7 @@
 
 Package: approx
 Architecture: any
-Depends: ${shlibs:Depends}, bzip2, curl
+Depends: ${shlibs:Depends}, adduser, bzip2, curl
 Description: caching proxy server for Debian archive files
  Approx is an HTTP-based Debian archive server.
  It fetches packages from remote repositories on demand,

Modified: trunk/projects/approx/trunk/server.ml
===================================================================
--- trunk/projects/approx/trunk/server.ml	2005-11-02 16:35:11 UTC (rev 1906)
+++ trunk/projects/approx/trunk/server.ml	2005-11-02 18:26:47 UTC (rev 1907)
@@ -30,7 +30,7 @@
   end
 
 let main port service =
-  let session input output =
+  let session input _output =
     let fd = descr_of_in_channel input in
     set_nonblock fd;
     process_connection config fd service

Modified: trunk/projects/approx/trunk/url.ml
===================================================================
--- trunk/projects/approx/trunk/url.ml	2005-11-02 16:35:11 UTC (rev 1906)
+++ trunk/projects/approx/trunk/url.ml	2005-11-02 18:26:47 UTC (rev 1907)
@@ -47,7 +47,6 @@
   finish (Unix.close_process_in chan)
 
 let download_command url headers headers_wanted =
-  let buf = Buffer.create 200 in
   let add_header str h =
     sprintf "%s --header %s" str (quoted_string h)
   in