esmooov/arrthing.hs

Created December 2, 2014 18:12

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/esmooov/7da6ff33f5dd655af592.js"></script>
Save esmooov/7da6ff33f5dd655af592 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

arrthing.hs

	sfPush :: SF () a -> SF [a] [a]
	sfPush sf = proc l -> do
	newElem <- sf -< ()
	returnA -< (newElem : l)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment