tsani
diff --git a/‎github.cabal‎
Lines changed: 2 additions & 1 deletion b/‎github.cabal‎
Lines changed: 2 additions & 1 deletion
diff --git a/‎spec/GitHub/PullRequestsSpec.hs‎
Lines changed: 9 additions & 6 deletions b/‎spec/GitHub/PullRequestsSpec.hs‎
Lines changed: 9 additions & 6 deletions
diff --git a/‎src/GitHub/Data.hs‎
Lines changed: 2 additions & 0 deletions b/‎src/GitHub/Data.hs‎
Lines changed: 2 additions & 0 deletions
diff --git a/‎src/GitHub/Data/Definitions.hs‎
Lines changed: 7 additions & 0 deletions b/‎src/GitHub/Data/Definitions.hs‎
Lines changed: 7 additions & 0 deletions
@@ -67,6 +67,7 @@ Library
     GitHub.Data.Search
     GitHub.Data.Teams
     GitHub.Data.Activities
+    GitHub.Data.URL
     GitHub.Data.Webhooks
     GitHub.Data.Webhooks.Validate
     GitHub.Endpoints.Activity.Starring
@@ -102,7 +103,7 @@ Library
   build-depends: base                  >= 4.7      && <4.9,
                  aeson                 >=0.7.0.6   && <0.12,
                  attoparsec            >=0.11.3.4  && <0.14,
-                 base-compat           >=0.6.0     && <0.10,
+                 base-compat           >=0.9.1     && <0.10,
                  base16-bytestring     >=0.1.1.6   && <0.2,
                  binary                >=0.7.1.0   && <0.9,
                  binary-orphans        >=0.1.0.0   && <0.2,
 
@@ -3,11 +3,12 @@ module GitHub.PullRequestsSpec where
 
 import qualified GitHub
 
-import Data.Either.Compat (isRight)
-import Data.Foldable      (for_)
-import Data.String        (fromString)
-import System.Environment (lookupEnv)
-import Test.Hspec         (Spec, describe, it, pendingWith, shouldSatisfy)
+import Data.Either.Compat   (isRight)
+import Data.Foldable        (for_)
+import Data.Function.Compat ((&))
+import Data.String          (fromString)
+import System.Environment   (lookupEnv)
+import Test.Hspec           (Spec, describe, it, pendingWith, shouldSatisfy)
 
 fromRightS :: Show a => Either a b -> b
 fromRightS (Right b) = b
@@ -25,11 +26,13 @@ spec = do
     describe "pullRequestsForR" $ do
         it "works" $ withAuth $ \auth -> for_ repos $ \(owner, repo) -> do
             cs <- GitHub.executeRequest auth $
-                GitHub.pullRequestsForR owner repo (Just "closed") Nothing
+                GitHub.pullRequestsForR owner repo opts Nothing
             cs `shouldSatisfy` isRight
   where
     repos =
       [ ("thoughtbot", "paperclip")
       , ("phadej", "github")
       , ("haskell", "cabal")
       ]
+    opts = GitHub.defaultPullRequestOptions
+        & GitHub.setPullRequestOptionsState GitHub.PullRequestStateClosed
@@ -45,6 +45,7 @@ module GitHub.Data (
     module GitHub.Data.Request,
     module GitHub.Data.Search,
     module GitHub.Data.Teams,
+    module GitHub.Data.URL,
     module GitHub.Data.Webhooks,
     ) where
 
@@ -68,6 +69,7 @@ import GitHub.Data.Repos
 import GitHub.Data.Request
 import GitHub.Data.Search
 import GitHub.Data.Teams
+import GitHub.Data.URL
 import GitHub.Data.Webhooks
 
 mkOwnerId :: Int -> Id Owner
 
@@ -26,6 +26,7 @@ import Network.HTTP.Client      (HttpException)
 
 import qualified Control.Exception as E
 import qualified Data.Text         as T
+import qualified Data.ByteString   as BS
 
 import GitHub.Data.Id
 import GitHub.Data.Name
@@ -242,3 +243,9 @@ data OrgMemberRole
     | OrgMemberRoleAdmin   -- ^ Organization owners.
     | OrgMemberRoleMember  -- ^ Non-owner organization members.
     deriving (Show, Eq, Ord, Enum, Bounded, Typeable, Data, Generic)
+
+-- | Request query string
+type QueryString = [(BS.ByteString, Maybe BS.ByteString)]
+
+-- | Count of elements
+type Count = Int