Skip to content

Instantly share code, notes, and snippets.

@vdudouyt

vdudouyt/dissect.hs

Created February 10, 2015 17:04
Show Gist options
  • Save vdudouyt/e367e60c4712ffece7ab to your computer and use it in GitHub Desktop.
Save vdudouyt/e367e60c4712ffece7ab to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dissect.hs
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