lenses =
  Just
    $ M.fromList
    $ "type" .= ("user.connection" :: Text)
    # "connection" .= uc
    # "user" .= case name of
      Just n -> Just $ object ["name" .= n]
      Nothing -> Nothing
    # []
