diff --git a/src/Data/List/Lazy/Types.purs b/src/Data/List/Lazy/Types.purs index 7728ead..57f9d26 100644 --- a/src/Data/List/Lazy/Types.purs +++ b/src/Data/List/Lazy/Types.purs @@ -195,10 +195,10 @@ instance extendList :: Extend List where Nil -> nil Cons a as -> f l : (foldr go { val: nil, acc: nil } as).val - where - go a { val, acc } = - let acc' = a : acc - in { val: f acc' : val, acc: acc' } + where + go a { val, acc } = + let acc' = a : acc + in { val: f acc' : val, acc: acc' } newtype NonEmptyList a = NonEmptyList (Lazy (NonEmpty List a)) diff --git a/test/Test/Data/List/NonEmpty.purs b/test/Test/Data/List/NonEmpty.purs index 71640d4..e3cd1ee 100644 --- a/test/Test/Data/List/NonEmpty.purs +++ b/test/Test/Data/List/NonEmpty.purs @@ -11,7 +11,7 @@ import Data.Monoid.Additive (Additive(..)) import Data.NonEmpty ((:|)) import Data.TraversableWithIndex (traverseWithIndex) import Data.Tuple (Tuple(..)) -import Data.Unfoldable (replicate, replicate1, unfoldr, unfoldr1) +import Data.Unfoldable (replicate1, unfoldr1) import Effect (Effect) import Effect.Console (log) import Test.Assert (assert)