rachel/kino
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

correct comment

Browse Source
This commit is contained in:
Rachel Lambda Samuelsson 2021-09-20 15:50:00 +02:00
parent 196d89d9cd
commit 98e177ea75
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Kino/Request.hs
View File

@ -37,7 +37,7 @@ defaultOptions :: WR.Options
defaultOptions = defaults & param "limit" .~ ["50"] defaultOptions = defaults & param "limit" .~ ["50"]
& param "page" .~ ["1"] & 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 :: AppS -> IO AppS
setMovies s = do setMovies s = do
m <- getMovies ((s ^. appReqOpts) & param "page" .~ [T.pack (show (s ^. appPage))]) m <- getMovies ((s ^. appReqOpts) & param "page" .~ [T.pack (show (s ^. appPage))])