haskell/minio-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix warnings (#116)

Browse Source
This commit is contained in:
Aditya Manthramurthy 2019-05-08 18:27:02 -07:00 committed by GitHub
parent bd455b2f70
commit 85f4bf557d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Network/Minio/XmlGenerator.hs
View File

@ -129,10 +129,10 @@ mkSelectRequest r = LBS.toStrict $ renderLBS def sr
inputSerializationNodes is = comprTypeNode (isCompressionType is) ++ inputSerializationNodes is = comprTypeNode (isCompressionType is) ++
[NodeElement $ formatNode (isFormatInfo is)] [NodeElement $ formatNode (isFormatInfo is)]
comprTypeNode (Just c) = [NodeElement $ Element "CompressionType" mempty comprTypeNode (Just c) = [NodeElement $ Element "CompressionType" mempty
[NodeContent $ [NodeContent $ case c of
if | c == CompressionTypeNone -> "NONE" CompressionTypeNone -> "NONE"
| c == CompressionTypeGzip -> "GZIP" CompressionTypeGzip -> "GZIP"
| c == CompressionTypeBzip2 -> "BZIP2" CompressionTypeBzip2 -> "BZIP2"
] ]
] ]
comprTypeNode Nothing = [] comprTypeNode Nothing = []
@ -145,9 +145,9 @@ mkSelectRequest r = LBS.toStrict $ renderLBS def sr
Element "JSON" mempty Element "JSON" mempty
[NodeElement [NodeElement
(Element "Type" mempty (Element "Type" mempty
[NodeContent $ [NodeContent $ case jsonipType p of
if | jsonipType p == JSONTypeDocument -> "DOCUMENT" JSONTypeDocument -> "DOCUMENT"
| jsonipType p == JSONTypeLines -> "LINES" JSONTypeLines -> "LINES"
] ]
) )
] ]