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