Skip to content

Commit 90db673

Browse files
authored
Improve Data.List.Base.unfold (#2359; deprecate use of with #2123) (#2364)
* `with`-free definition of `unfold` * fixed previous commit
1 parent 69bbe51 commit 90db673

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

src/Data/List/Base.agda

+1-3
Original file line numberDiff line numberDiff line change
@@ -250,9 +250,7 @@ unfold : ∀ (P : ℕ → Set b)
250250
(f : {n} P (suc n) Maybe (A × P n))
251251
{n} P n List A
252252
unfold P f {n = zero} s = []
253-
unfold P f {n = suc n} s with f s
254-
... | nothing = []
255-
... | just (x , s′) = x ∷ unfold P f s′
253+
unfold P f {n = suc n} s = maybe′ (λ (x , s′) x ∷ unfold P f s′) [] (f s)
256254

257255
------------------------------------------------------------------------
258256
-- Operations for reversing lists

0 commit comments

Comments
 (0)