headNote xs = error $ "mkKeyFromValues: expected a list of one element, got: "
  `mappend` show xs
headNote xs = error $ "mkKeyFromValues: expected a list of one element, got: "
  `mappend` show xs
headNote xs = error $ "mkKeyFromValues: expected a list of one element, got: "
  `mappend` show xs