Skip to content

Instantly share code, notes, and snippets.

@ktvoelker

ktvoelker/gist:945337

Created April 27, 2011 22:05
Show Gist options
  • Save ktvoelker/945337 to your computer and use it in GitHub Desktop.
Save ktvoelker/945337 to your computer and use it in GitHub Desktop.
Download ZIP
IdField
Raw
gistfile1.hs
data IdField a b = IdField { getField :: a -> b, putField :: b -> a -> a }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment