hughfdjackson · June 21, 2014 23:47
diff --git a/lifting-into-foldp.elm b/lifting-into-foldp.elm
 type State = { prev: Int, curr: Int }

 tick = every second

 updateState timestamp state = { state | prev <- state.curr, curr <- timestamp } 

 main = lift asText <| foldp updateState { prev = 0, curr = 0 } tick
	type State = { prev: Int, curr: Int }

	tick = every second

	updateState timestamp state = { state \| prev <- state.curr, curr <- timestamp }

	main = lift asText <\| foldp updateState { prev = 0, curr = 0 } tick
No results found