fix Traversable instance for ListL

marcosh · Sep 28, 2023 · 0414063 · 0414063
1 parent 3b9f182
commit 0414063
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -5,6 +5,10 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic versioning](http://semver.org/).
 
+## [1.4.1] - 2023-09-28
+
+- fix `Traversable` instance for `ListL`
+
 ## [1.4.0] - 2023-09-27
 
 - introduce `OppositeSemigroup` and `OppositMonoid`

diff --git a/src/Instances/ListL/ListTraversable.php b/src/Instances/ListL/ListTraversable.php
@@ -75,7 +75,7 @@ public function traverse(Applicative $applicative, callable $f, HK1 $a): HK1
                  * @param HK1<ListBrand, B> $t
                  * @return HK1<ListBrand, B>
                  */
-                static fn ($h, $t): HK1 => ListL::fromBrand($t)->append($h),
+                static fn ($h, $t): HK1 => ListL::fromBrand($t)->prepend($h),
                 $f($c),
                 $d
             ),

diff --git a/src/ListL.php b/src/ListL.php
@@ -56,9 +56,9 @@ public function asNativeList(): array
      * @param A $a
      * @return ListL<A>
      */
-    public function append($a): self
+    public function prepend($a): self
     {
-        return new self(array_merge($this->list, [$a]));
+        return new self(array_merge([$a], $this->list));
     }
 
     /**