get pager from headers. (#162)

go-vela · May 21, 2020 · 8ffdfc1 · 8ffdfc1
1 parent 73ac3ff
commit 8ffdfc1
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/elm/Main.elm b/src/elm/Main.elm
@@ -820,7 +820,7 @@ update msg model =
                     model.secretsModel
             in
             case response of
-                Ok ( _, secrets ) ->
+                Ok ( meta, secrets ) ->
                     let
                         mergedSecrets =
                             case secretsModel.secrets of
@@ -829,8 +829,11 @@ update msg model =
 
                                 _ ->
                                     RemoteData.succeed secrets
+
+                        pager =
+                            Pagination.get meta.headers
                     in
-                    ( { model | secretsModel = { secretsModel | secrets = mergedSecrets } }, Cmd.none )
+                    ( { model | secretsModel = { secretsModel | secrets = mergedSecrets, pager = pager } }, Cmd.none )
 
                 Err error ->
                     ( { model | secretsModel = { secretsModel | secrets = toFailure error } }, addError error )