Skip to content

Commit c54e7d6

Browse files
committed
Fix compilation with bytestring<11
1 parent 854aa21 commit c54e7d6

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/GitHub/Request.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -500,8 +500,8 @@ makeHttpRequest auth r = case r of
500500
extraQueryItems :: [(BS.ByteString, Maybe BS.ByteString)]
501501
extraQueryItems = case r of
502502
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
503+
(\page -> ("page", Just (LBS.toStrict $ toLazyByteString $ intDec page))) <$> pageParamsPage pp
504+
, (\perPage -> ("per_page", Just (LBS.toStrict $ toLazyByteString $ intDec perPage))) <$> pageParamsPerPage pp
505505
]
506506
_ -> []
507507

0 commit comments

Comments
 (0)