@@ -11,6 +11,7 @@ module Web.HttpApiData.Internal where
12#if __GLASGOW_HASKELL__ < 710
12#if __GLASGOW_HASKELL__ < 710
13import Control.Applicative
13import Control.Applicative
14+import Data.Traversable (traverse)
15import Control.Arrow ((&&&))
16import Control.Arrow ((&&&))
@@ -87,6 +88,22 @@ toUrlPieces = fmap toUrlPiece
87parseUrlPieces :: (Traversable t, FromHttpApiData a) => t Text -> Either Text (t a)
88parseUrlPieces :: (Traversable t, FromHttpApiData a) => t Text -> Either Text (t a)
88parseUrlPieces = traverse parseUrlPiece
89parseUrlPieces = traverse parseUrlPiece
91+-- | Convert multiple values to a list of query parameter values.
93+-- >>> toQueryParams [fromGregorian 2015 10 03, fromGregorian 2015 12 01]
94+-- ["2015-10-03","2015-12-01"]
95+toQueryParams :: (Functor t, ToHttpApiData a) => t a -> t Text
96+toQueryParams = fmap toQueryParam
98+-- | Parse multiple query parameters.
100+-- >>> parseQueryParams ["1", "2", "3"] :: Either Text [Int]
102+-- >>> parseQueryParams ["64", "128", "256"] :: Either Text [Word8]
103+-- Left "out of bounds: `256' (should be between 0 and 255)"
104+parseQueryParams :: (Traversable t, FromHttpApiData a) => t Text -> Either Text (t a)
105+parseQueryParams = traverse parseQueryParam
90-- | Parse URL path piece in a @'Maybe'@.
107-- | Parse URL path piece in a @'Maybe'@.
92-- >>> parseUrlPieceMaybe "12" :: Maybe Int
109-- >>> parseUrlPieceMaybe "12" :: Maybe Int