From d19e8b4bcfd77e384e1b2e57bc342e81c1275287 Mon Sep 17 00:00:00 2001
From: Marcin Puc <marcin.e.puc@gmail.com>
Date: Sun, 7 Mar 2021 23:03:30 +0100
Subject: Move reverse call to the helper

---
 src/gleam/list.gleam | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/gleam/list.gleam b/src/gleam/list.gleam
index 680b0b0..7317242 100644
--- a/src/gleam/list.gleam
+++ b/src/gleam/list.gleam
@@ -1247,11 +1247,11 @@ fn do_take_while(
   acc: List(a),
 ) -> List(a) {
   case list {
-    [] -> acc
+    [] -> reverse(acc)
     [head, ..tail] ->
       case predicate(head) {
         True -> do_take_while(tail, predicate, [head, ..acc])
-        False -> acc
+        False -> reverse(acc)
       }
   }
 }
@@ -1268,5 +1268,4 @@ pub fn take_while(
   satisfying predicate: fn(a) -> Bool,
 ) -> List(a) {
   do_take_while(list, predicate, [])
-  |> reverse
 }
-- 
cgit v1.2.3