The following commit has been merged in the master branch:
commit d382d789b435a2605df1d1bc585e87e718fdfa98
Author: Romain Beauxis <to...@rastageeks.org>
Date:   Tue May 14 09:05:16 2013 -0500

    Revert harbor_output.ml to upstream version.

diff --git a/src/outputs/harbor_output.ml b/src/outputs/harbor_output.ml
index d078aa6..e2270cf 100644
--- a/src/outputs/harbor_output.ml
+++ b/src/outputs/harbor_output.ml
@@ -361,8 +361,7 @@ class output ~kind p =
                                                         let login user
                                                                   password =
                                                           let (user,
-                                                               password) 
-                                                            =
+                                                               password) =
                                                             let f =
                                                               Configure.
                                                               recode_tag
@@ -565,8 +564,7 @@ class output ~kind p =
                                                                     s) in
                                                                     let 
                                                                     (metaint,
-                                                                    icyheader) 
-                                                                    =
+                                                                    icyheader) 
=
                                                                     try
                                                                     (assert
                                                                     (((List.
@@ -901,8 +899,7 @@ class output ~kind p =
                                                                     (acc, 0) in
                                                                     let 
                                                                     (data,
-                                                                    pos) 
-                                                                    =
+                                                                    pos) =
                                                                     f [] 0
                                                                     (b ::
                                                                     (List.rev
@@ -1070,8 +1067,7 @@ class output ~kind p =
                                                                     
"^(.+)\\?(.+)$" in
                                                                     let 
                                                                     (base_uri,
-                                                                    args) 
-                                                                    =
+                                                                    args) =
                                                                     try
                                                                     let sub 
                                                                     =

-- 
liquidsoap packaging

_______________________________________________
Pkg-ocaml-maint-commits mailing list
Pkg-ocaml-maint-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-ocaml-maint-commits

Reply via email to