Skip to content

Instantly share code, notes, and snippets.

@vtatai

vtatai/complex_map.hs

Last active January 16, 2019 18:12
Show Gist options
  • Save vtatai/988d707b85c515ed2f6e9ab15eba2c76 to your computer and use it in GitHub Desktop.
Save vtatai/988d707b85c515ed2f6e9ab15eba2c76 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
complex_map.hs
data User = User {
name :: String,
child :: Maybe User
} deriving Show
john = User {name="John", child=Just User{name="Christie", child=Nothing}}
complexUsers = Map.fromList[(1, john)]
lookupComplexUser id = Map.lookup id complexUsers
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment