Remove fold_right in favour of fold

ghivert · Sep 17, 2024 · c5a5a8b · c5a5a8b
1 parent b2af865
commit c5a5a8b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/apps/frontend/src/frontend/view/body/body.gleam b/apps/frontend/src/frontend/view/body/body.gleam
@@ -258,7 +258,7 @@ fn popularity_chart(model: Model) {
   use <- bool.guard(when: list.is_empty(data), return: el.none())
   chart.bar_chart("#ff851b", {
     let acc = Dataset([], [])
-    use Dataset(dates, value), package <- list.fold_right(data, acc)
+    use Dataset(dates, value), package <- list.fold(list.reverse(data), acc)
     case package.popularity {
       option.None -> Dataset(dates, value)
       option.Some(popularity) -> {
@@ -277,7 +277,7 @@ fn ranked_chart(model: Model) {
   use <- bool.guard(when: list.is_empty(data), return: el.none())
   chart.bar_chart("#ffaff3", {
     let acc = Dataset([], [])
-    use Dataset(dates, value), package <- list.fold_right(data, acc)
+    use Dataset(dates, value), package <- list.fold(list.reverse(data), acc)
     let label = package.name
     Dataset([label, ..dates], [package.rank, ..value])
   })

diff --git a/packages/lustre/src/lustre/element.gleam b/packages/lustre/src/lustre/element.gleam
@@ -274,7 +274,7 @@ pub fn fragment(elements: List(Element(msg))) -> Element(msg) {
 }
 
 fn flatten_fragment_elements(elements: List(Element(msg))) {
-  list.fold_right(elements, [], fn(new_elements, element) {
+  list.fold(list.reverse(elements), [], fn(new_elements, element) {
     case element {
       // Only flatten one level, the runtime handles next level children
       // alternatively, this could flatten deeply, but it doesn't save