module GitHub.Endpoints.Search(
searchRepos',
searchRepos,
searchReposR,
searchCode',
searchCode,
searchCodeR,
searchIssues',
searchIssues,
searchIssuesR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import GitHub.Request
import Prelude ()
import qualified Data.Text.Encoding as TE
searchRepos' :: Maybe Auth -> Text -> IO (Either Error (SearchResult Repo))
searchRepos' :: Maybe Auth -> Text -> IO (Either Error (SearchResult Repo))
searchRepos' auth :: Maybe Auth
auth = Maybe Auth
-> GenRequest 'MtJSON 'RO (SearchResult Repo)
-> IO (Either Error (SearchResult Repo))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (SearchResult Repo)
-> IO (Either Error (SearchResult Repo)))
-> (Text -> GenRequest 'MtJSON 'RO (SearchResult Repo))
-> Text
-> IO (Either Error (SearchResult Repo))
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> GenRequest 'MtJSON 'RO (SearchResult Repo)
forall (k :: RW). Text -> Request k (SearchResult Repo)
searchReposR
searchRepos :: Text -> IO (Either Error (SearchResult Repo))
searchRepos :: Text -> IO (Either Error (SearchResult Repo))
searchRepos = Maybe Auth -> Text -> IO (Either Error (SearchResult Repo))
searchRepos' Maybe Auth
forall a. Maybe a
Nothing
searchReposR :: Text -> Request k (SearchResult Repo)
searchReposR :: Text -> Request k (SearchResult Repo)
searchReposR searchString :: Text
searchString =
Paths -> QueryString -> Request k (SearchResult Repo)
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query ["search", "repositories"] [("q", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString) -> ByteString -> Maybe ByteString
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
TE.encodeUtf8 Text
searchString)]
searchCode' :: Maybe Auth -> Text -> IO (Either Error (SearchResult Code))
searchCode' :: Maybe Auth -> Text -> IO (Either Error (SearchResult Code))
searchCode' auth :: Maybe Auth
auth = Maybe Auth
-> GenRequest 'MtJSON 'RO (SearchResult Code)
-> IO (Either Error (SearchResult Code))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (SearchResult Code)
-> IO (Either Error (SearchResult Code)))
-> (Text -> GenRequest 'MtJSON 'RO (SearchResult Code))
-> Text
-> IO (Either Error (SearchResult Code))
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> GenRequest 'MtJSON 'RO (SearchResult Code)
forall (k :: RW). Text -> Request k (SearchResult Code)
searchCodeR
searchCode :: Text -> IO (Either Error (SearchResult Code))
searchCode :: Text -> IO (Either Error (SearchResult Code))
searchCode = Maybe Auth -> Text -> IO (Either Error (SearchResult Code))
searchCode' Maybe Auth
forall a. Maybe a
Nothing
searchCodeR :: Text -> Request k (SearchResult Code)
searchCodeR :: Text -> Request k (SearchResult Code)
searchCodeR searchString :: Text
searchString =
Paths -> QueryString -> Request k (SearchResult Code)
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query ["search", "code"] [("q", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString) -> ByteString -> Maybe ByteString
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
TE.encodeUtf8 Text
searchString)]
searchIssues' :: Maybe Auth -> Text -> IO (Either Error (SearchResult Issue))
searchIssues' :: Maybe Auth -> Text -> IO (Either Error (SearchResult Issue))
searchIssues' auth :: Maybe Auth
auth = Maybe Auth
-> GenRequest 'MtJSON 'RO (SearchResult Issue)
-> IO (Either Error (SearchResult Issue))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (SearchResult Issue)
-> IO (Either Error (SearchResult Issue)))
-> (Text -> GenRequest 'MtJSON 'RO (SearchResult Issue))
-> Text
-> IO (Either Error (SearchResult Issue))
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> GenRequest 'MtJSON 'RO (SearchResult Issue)
forall (k :: RW). Text -> Request k (SearchResult Issue)
searchIssuesR
searchIssues :: Text -> IO (Either Error (SearchResult Issue))
searchIssues :: Text -> IO (Either Error (SearchResult Issue))
searchIssues = Maybe Auth -> Text -> IO (Either Error (SearchResult Issue))
searchIssues' Maybe Auth
forall a. Maybe a
Nothing
searchIssuesR :: Text -> Request k (SearchResult Issue)
searchIssuesR :: Text -> Request k (SearchResult Issue)
searchIssuesR searchString :: Text
searchString =
Paths -> QueryString -> Request k (SearchResult Issue)
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query ["search", "issues"] [("q", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString) -> ByteString -> Maybe ByteString
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
TE.encodeUtf8 Text
searchString)]