@@ -45,7 +45,6 @@ import TextShow (TextShow, showt)
48−-- >>> :unset -XOverloadedLists
49-- >>> data BasicAuthToken = BasicAuthToken Text deriving (Show)
48-- >>> data BasicAuthToken = BasicAuthToken Text deriving (Show)
50-- >>> instance FromHttpApiData BasicAuthToken where parseHeader h = BasicAuthToken <$> parseHeaderWithPrefix "Basic " h; parseQueryParam p = BasicAuthToken <$> parseQueryParam p
49-- >>> instance FromHttpApiData BasicAuthToken where parseHeader h = BasicAuthToken <$> parseHeaderWithPrefix "Basic " h; parseQueryParam p = BasicAuthToken <$> parseQueryParam p
@@ -87,7 +86,7 @@ class FromHttpApiData a where
88-- | Convert multiple values to a list of URL pieces.
87-- | Convert multiple values to a list of URL pieces.
90−-- >>> toUrlPieces [1, 2, 3]
89+-- >>> toUrlPieces [1, 2, 3] :: [Text]
91-- ["1","2","3"]
90-- ["1","2","3"]
92toUrlPieces :: (Functor t, ToHttpApiData a) => t a -> t Text
91toUrlPieces :: (Functor t, ToHttpApiData a) => t a -> t Text
93toUrlPieces = fmap toUrlPiece
92toUrlPieces = fmap toUrlPiece
@@ -103,7 +102,7 @@ parseUrlPieces = traverse parseUrlPiece
104-- | Convert multiple values to a list of query parameter values.
103-- | Convert multiple values to a list of query parameter values.
106−-- >>> toQueryParams [fromGregorian 2015 10 03, fromGregorian 2015 12 01]
105+-- >>> toQueryParams [fromGregorian 2015 10 03, fromGregorian 2015 12 01] :: [Text]
107-- ["2015-10-03","2015-12-01"]
106-- ["2015-10-03","2015-12-01"]
108toQueryParams :: (Functor t, ToHttpApiData a) => t a -> t Text
107toQueryParams :: (Functor t, ToHttpApiData a) => t a -> t Text
109toQueryParams = fmap toQueryParam
108toQueryParams = fmap toQueryParam