Media lists must start on page 1

dustin · Oct 8, 2023 · ed3b15c · ed3b15c
1 parent 6cefeb4
commit ed3b15c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name:                gopro-plus
-version:             0.6.6.3
+version:             0.6.6.4
 github:              "dustin/gopro-plus"
 license:             BSD3
 author:              "Dustin Sallings"

diff --git a/src/GoPro/Plus/Media.hs b/src/GoPro/Plus/Media.hs
@@ -210,7 +210,7 @@ listAll = listWhile (const True)
 
 -- | List all media while returned batches pass the given predicate.
 listWhile :: (HasGoProAuth m, MonadIO m) => ([Medium] -> Bool) -> m [Medium]
-listWhile f = Map.elems <$> dig 0 mempty
+listWhile f = Map.elems <$> dig 1 mempty
     where
       dig n m = do
         (ms, _) <- list 100 n