russmatney · May 12, 2018 03:38
diff --git a/lens-op-ob-hasgotcha.hs b/lens-op-ob-hasgotcha.hs
 hasGotcha :: IO ()
 hasGotcha = do
  let bob = User (UserName "bob") 42 Nothing HM.empty

  print "Has bob gold in his inventory?"
  print $ has (inventory . at "gold") bob
  -- True
	hasGotcha :: IO ()
	hasGotcha = do
	let bob = User (UserName "bob") 42 Nothing HM.empty

	print "Has bob gold in his inventory?"
	print $ has (inventory . at "gold") bob
	-- True