qualified-ops-out.hs

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