36 lines
1.0 KiB
Haskell
36 lines
1.0 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
{-|
|
|
Module : Request
|
|
Description : Contains code for issuing http requests
|
|
-}
|
|
|
|
module Request where
|
|
|
|
import JSONTypes
|
|
|
|
import Network.Wreq
|
|
import qualified Network.Wreq as WR (Options)
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import qualified Data.Text as T
|
|
|
|
-- | Sends a request and unwraps the top level respone data structure
|
|
makeRequest :: (FromJSON a) => String -> WR.Options -> IO (Either T.Text a)
|
|
makeRequest url opts = do
|
|
r <- asJSON =<< getWith opts url
|
|
pure $ case (r ^. responseBody) of
|
|
(JSONResponse "ok" _ (Just d)) -> Right d
|
|
(JSONResponse _ m _) -> Left m
|
|
|
|
-- | Requests a list of all movies
|
|
getMovies :: IO (Either T.Text JSONListMovies)
|
|
getMovies = makeRequest "https://yts.mx/api/v2/list_movies.json"
|
|
(defaults & param "limit" .~ ["50"])
|
|
|
|
-- | Requests a list of all movies matching a query term
|
|
queryMovies :: T.Text -> IO (Either T.Text JSONListMovies)
|
|
queryMovies q = makeRequest "https://yts.mx/api/v2/list_movies.json"
|
|
(defaults & param "query_term" .~ [q]
|
|
& param "limit" .~ ["50"])
|