Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove unrelated camlp4 diff..

  • Loading branch information...
commit 31c99b57b2971b0abe1d03e86a16080449d2dd1b 1 parent f74fca3
@toots toots authored
Showing with 8 additions and 4 deletions.
  1. +8 −4 src/outputs/harbor_output.ml
View
12 src/outputs/harbor_output.ml
@@ -361,7 +361,8 @@ class output ~kind p =
let login user
password =
let (user,
- password) =
+ password)
+ =
let f =
Configure.
recode_tag
@@ -564,7 +565,8 @@ class output ~kind p =
s) in
let
(metaint,
- icyheader) =
+ icyheader)
+ =
try
(assert
(((List.
@@ -905,7 +907,8 @@ class output ~kind p =
(acc, 0) in
let
(data,
- pos) =
+ pos)
+ =
f [] 0
(b ::
(List.rev
@@ -1073,7 +1076,8 @@ class output ~kind p =
"^(.+)\\?(.+)$" in
let
(base_uri,
- args) =
+ args)
+ =
try
let sub
=
Please sign in to comment.
Something went wrong with that request. Please try again.