Permalink
Browse files

Amazon S3 XML encoding fix

  • Loading branch information...
1 parent 582f14f commit 60b9937995d99c860b3b432bceacb1ac3c9a591b @VictorNicollet committed Nov 29, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 ohmAmazon/ohmAmazon.ml
View
1 ohmAmazon/ohmAmazon.ml
@@ -209,6 +209,7 @@ module S3 = functor(Account:ACCOUNT) -> struct
let _,str = BatString.replace ~str ~sub:">" ~by:">" in
let _,str = BatString.replace ~str ~sub:"&lt;" ~by:"<" in
let _,str = BatString.replace ~str ~sub:"&quot;" ~by:"\"" in
+ let _,str = BatString.replace ~str ~sub:"&apos;" ~by:"'" in
let _,str = BatString.replace ~str ~sub:"&amp;" ~by:"&" in
Some str
with Not_found -> None

0 comments on commit 60b9937

Please sign in to comment.