qualified-ops-four-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.# []