From b36fbb3a2f5042c423832c3ac852b0ae3e374c77 Mon Sep 17 00:00:00 2001 From: Krishnan Parthasarathi Date: Tue, 7 Feb 2017 16:21:16 +0530 Subject: [PATCH] parseListObjectsResponse should handle empty etags --- src/Network/Minio/XmlParser.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Network/Minio/XmlParser.hs b/src/Network/Minio/XmlParser.hs index 40534fe..f5d878a 100644 --- a/src/Network/Minio/XmlParser.hs +++ b/src/Network/Minio/XmlParser.hs @@ -94,7 +94,10 @@ parseListObjectsResponse xmldata = do keys = r $/ s3Elem "Contents" &/ s3Elem "Key" &/ content modTimeStr = r $/ s3Elem "Contents" &/ s3Elem "LastModified" &/ content - etags = r $/ s3Elem "Contents" &/ s3Elem "ETag" &/ content + etagsList = r $/ s3Elem "Contents" &/ s3Elem "ETag" &/ content + -- if response xml contains empty etag response fill them with as + -- many empty Text for the zip4 below to work as intended. + etags = etagsList ++ repeat "" sizeStr = r $/ s3Elem "Contents" &/ s3Elem "Size" &/ content modTimes <- mapM parseS3XMLTime modTimeStr