vdudouyt/dissect.hs

Created February 10, 2015 17:04

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

Download ZIP

Raw

	dissect :: (Data a, Data d) => a -> [(String, Maybe d)]
	dissect a = zip (constrFields $ toConstr a) (gmapQ cast a)

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