diff --git a/src/Kino/Request.hs b/src/Kino/Request.hs index b3cd6be..26ef564 100644 --- a/src/Kino/Request.hs +++ b/src/Kino/Request.hs @@ -37,7 +37,7 @@ defaultOptions :: WR.Options defaultOptions = defaults & param "limit" .~ ["50"] & param "page" .~ ["1"] --- | Updates the state given a way to request a new movie listing +-- | Updates the state following a new movie request setMovies :: AppS -> IO AppS setMovies s = do m <- getMovies ((s ^. appReqOpts) & param "page" .~ [T.pack (show (s ^. appPage))])