:: (a, b) -> a -package:bbdb -package:prelude-compat

Extract the first component of a pair.