correct comment

2021-09-20 15:50:00 +02:00 · 2021-09-20 15:50:00 +02:00 · 98e177ea75
commit 98e177ea75
parent 196d89d9cd
1 changed files with 1 additions and 1 deletions
--- 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))])