@@ -171,14 +171,19 @@ parseUrlPieceWithPrefix pattern input
172 (prefix, rest) = T.splitAt (T.length pattern) input
172 (prefix, rest) = T.splitAt (T.length pattern) input
175+-- >>> data BasicAuthToken = BasicAuthToken Text deriving (Show)
176+-- >>> instance FromHttpApiData BasicAuthToken where parseHeader h = BasicAuthToken <$> parseHeaderWithPrefix "Basic " h; parseQueryParam p = BasicAuthToken <$> parseQueryParam p
174-- | Parse given bytestring then parse the rest of the input using @'parseHeader'@.
178-- | Parse given bytestring then parse the rest of the input using @'parseHeader'@.
176−-- >>> data BasicAuthToken = BasicAuthToken Text deriving (Show)
181+-- data BasicAuthToken = BasicAuthToken Text deriving (Show)
178-- instance FromHttpApiData BasicAuthToken where
183-- instance FromHttpApiData BasicAuthToken where
179−-- parseHeader h = BasicAuthToken <$> parseHeaderWithPrefix "Basic " h
184+-- parseHeader h = BasicAuthToken \<$\> parseHeaderWithPrefix "Basic " h
180−-- parseQueryParam p = BasicAuthToken <$> parseQueryParam p
185+-- parseQueryParam p = BasicAuthToken \<$\> parseQueryParam p
183-- >>> parseHeader "Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==" :: Either Text BasicAuthToken
188-- >>> parseHeader "Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==" :: Either Text BasicAuthToken
184-- Right (BasicAuthToken "QWxhZGRpbjpvcGVuIHNlc2FtZQ==")
189-- Right (BasicAuthToken "QWxhZGRpbjpvcGVuIHNlc2FtZQ==")