We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 854aa21 commit c54e7d6Copy full SHA for c54e7d6
src/GitHub/Request.hs
@@ -500,8 +500,8 @@ makeHttpRequest auth r = case r of
500
extraQueryItems :: [(BS.ByteString, Maybe BS.ByteString)]
501
extraQueryItems = case r of
502
PagedQuery _ _ (FetchPage pp) -> catMaybes [
503
- (\page -> ("page", Just (BS.toStrict $ toLazyByteString $ intDec page))) <$> pageParamsPage pp
504
- , (\perPage -> ("per_page", Just (BS.toStrict $ toLazyByteString $ intDec perPage))) <$> pageParamsPerPage pp
+ (\page -> ("page", Just (LBS.toStrict $ toLazyByteString $ intDec page))) <$> pageParamsPage pp
+ , (\perPage -> ("per_page", Just (LBS.toStrict $ toLazyByteString $ intDec perPage))) <$> pageParamsPerPage pp
505
]
506
_ -> []
507
0 commit comments