module Rakuten.Endpoints.Ichiba
( searchIchibaItem
, searchIchibaGenre
) where
import Data.Monoid ((<>))
import Network.HTTP.Req (GET (..), JsonResponse, MonadHttp,
NoReqBody (..), jsonResponse, req, (/:))
import Rakuten.Client
import Rakuten.Types
searchIchibaItem :: (MonadHttp m, Client c) =>
c -> IchibaItemSearchParam -> m (JsonResponse IchibaItems)
searchIchibaItem c param = req GET url NoReqBody jsonResponse option
where
url = baseUrl c /: "IchibaItem" /: "Search" /: "20170706"
option = mkHeader c <> toParams param
searchIchibaGenre :: (MonadHttp m, Client c) =>
c -> IchibaGenreSearchParam -> m (JsonResponse IchibaGenres)
searchIchibaGenre c param = req GET url NoReqBody jsonResponse option
where
url = baseUrl c /: "IchibaGenre" /: "Search" /: "20140222"
option = mkHeader c <> toParams param