module GitHub.Endpoints.Search(
searchReposR,
searchCodeR,
searchIssuesR,
searchUsersR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import Prelude ()
import qualified Data.Text.Encoding as TE
searchReposR :: Text -> Request k (SearchResult Repo)
searchReposR :: Text -> Request k (SearchResult Repo)
searchReposR Text
searchString =
Paths -> QueryString -> Request k (SearchResult Repo)
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query [Text
"search", Text
"repositories"] [(ByteString
"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)]
searchCodeR :: Text -> Request k (SearchResult Code)
searchCodeR :: Text -> Request k (SearchResult Code)
searchCodeR Text
searchString =
Paths -> QueryString -> Request k (SearchResult Code)
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query [Text
"search", Text
"code"] [(ByteString
"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)]
searchIssuesR :: Text -> Request k (SearchResult Issue)
searchIssuesR :: Text -> Request k (SearchResult Issue)
searchIssuesR Text
searchString =
Paths -> QueryString -> Request k (SearchResult Issue)
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query [Text
"search", Text
"issues"] [(ByteString
"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)]
searchUsersR :: Text -> Request k (SearchResult SimpleUser)
searchUsersR :: Text -> Request k (SearchResult SimpleUser)
searchUsersR Text
searchString =
Paths -> QueryString -> Request k (SearchResult SimpleUser)
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query [Text
"search", Text
"users"] [(ByteString
"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)]