tonymorris/store.hs

Created March 15, 2021 02:25

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/tonymorris/08071dc5f992b8ff3c3580f98a21e95e.js"></script>
Save tonymorris/08071dc5f992b8ff3c3580f98a21e95e to your computer and use it in GitHub Desktop.

Download ZIP

Raw


	f :: Store a b -> Store a (Store a b)
	f s =
	let (set, get) = runStore s
	in store (store set) get

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