unison/unison-src/tests/lambda-closing-over-effectful-fn.u

use Optional None Some

unfold : s -> (s ->{z} Optional (a, s)) ->{z} [a]
unfold s f =
  go s acc = match f s with
    None -> acc
    Some (hd, s) -> go s (List.snoc acc hd)
  go s []

> unfold 0 (n -> if n < 5 then Some (n, n + 1) else None)
fix issue in synthesizeApp where existentials were refined to pure function types, not allowing for possibility of effects Still need to do some cleanup, will do that with separate commit 2019-04-04 20:25:58 +03:00			`use Optional None Some`

			`unfold : s -> (s ->{z} Optional (a, s)) ->{z} [a]`
			`unfold s f =`
replace `case .. of` syntax with `match .. with` 2020-02-07 05:29:43 +03:00			`go s acc = match f s with`
fix issue in synthesizeApp where existentials were refined to pure function types, not allowing for possibility of effects Still need to do some cleanup, will do that with separate commit 2019-04-04 20:25:58 +03:00			`None -> acc`
Remove infix backtick syntax from more unison source 2021-12-16 02:00:56 +03:00			`Some (hd, s) -> go s (List.snoc acc hd)`
fix issue in synthesizeApp where existentials were refined to pure function types, not allowing for possibility of effects Still need to do some cleanup, will do that with separate commit 2019-04-04 20:25:58 +03:00			`go s []`

Implement fix. There were lots of tests that were inadvertently relying on the bug. 2020-10-23 05:33:12 +03:00			`> unfold 0 (n -> if n < 5 then Some (n, n + 1) else None)`