We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ffa5be0 commit 3e3e2ddCopy full SHA for 3e3e2dd
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